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Quattro milioni di dischetti ODP venduti 
in Italia dal 1978 fanno del dischetto ODP 
un best seller dell'Informatica. Un suc¬ 
cesso determinato dall’alta affidabilità 
del dischetto ODP, risultato della tecno¬ 
logia edella ricerca più avanzata. Per que¬ 
sto scegli un best seller, scegli ODP. ■ 
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Computer cuisine 

Tutti hanno in casa un cassetto un po disordinato, pieno di fogli e 
foglietti, ritagli e appunti: sono le meravigliose ricette della zia. i consigli 
dell’amica e i suggerimenti della rivista preferita. Ma un po d’ordine non 
ci starebbe bene? Piu veloce da consultare, senza il rischio di far 
confusione, il ricettario sul personal diventa più ricco e pratico. 

Diesel o benzina? 

Se sarà bianca o rossa, a due. quattro o cinque porte, metallizzata o 
meno, si vedrà. Essenziale, prioritario, determinante e il motore. Come 
sceglierlo? Chiedendo agli amici, guardando i giornali, facendo testa o 
croce? O. meglio, affidandosi al giudizio del computer? 

Effetti speciali 

Vi piacerebbe avere un repertorio di suoni e rumori d ogni genere? 
Questo programma usa lo schermo grafico Hi-Res per creare effetti 
sonori o semplici melodie. A centinaia. E subito pronti su dischetto. 

Volano 

Ce ne vuole per arrivare ad agosto, ma invece di giocare a volano sulla 
spiaggia, ci si può accontentare a giocarlo, per il momento, sull Apple. 
La grafica eccezionale e il minore impegno fisico ricompenseranno 
dell'estate lontana. 

Macprove 

Magic e FileVision sono due ottimi programmi per dotare di vista il 
Macintosh. Inoltre aprono la strada a possibilità grafiche incredibili. 
Basta una telecamera e... 

Grafica 

Non è facile sfruttare in pieno le qualità grafiche dell Apple. ma con 
questo programma può riuscirci anche il piu inesperto. E. una volta 
memorizzati su dischetto, i vostri capolavori. . 

Utility 

Vi piacerebbe aggiungere ai vostri programmi un menu professionale? 
Qui lo troverete già fatto e pronto da inserire in testa al listato, con un 
risparmio e una resa che... 

AppleWorks 

Continua il corso che permette a tutti di imparare facilmente a costruire 
da sé i modelli applicativi per le proprie esigenze. E in questo numero 
viene affrontato il data base. 
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Macnews 

Sei nuovi programmi per l’impareggiabile Macintosh, alcuni tradotti in 
italiano, altri giunti freschi freschi dall America. 


83 


Speciale Appliscuola 

Un diagramma cartesiano per rendere intuitivamente evidente il 
classico algoritmo euclideo per il calcolo del massimo comun divisore e 
un programma dimostrativo di chimica che fa parte del progetto 
americano Seraphim. 
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20122 Milano - Corso Monforte, 39 
Telefono (02) 702429 
Telex 350132 MACORM I 


DIRETTORE RESPONSABILE 
Stefano Benvenuti 

COLLABORATORI 
Aldo Brambilla 
Giorgio Caironi 
Rossana Galliani 
Mario Magnani 
Francesca Marzotto 
Dolma Poli 
Domenico Semprini 
Enzo Tonti 

PUBBLICHE RELAZIONI 
Mauro Gandini 

REALIZZAZIONE EDITORIALE 
Editing Studio 



Tutti i diritti di riproduzione e traduzio¬ 
ne di testi, articoli, progetti, illustra¬ 
zioni, disegni, listati di programmi, fo¬ 
tografie ecc., sono riservati a termini 
di legge. I programmi pubblicati su 
Applicando possono essere utilizzati 
per scopi privati, scientifici e dilettan¬ 
tistici, ma ne sono vietati sfruttamenti 
e utilizzazioni commerciali. I mano¬ 
scritti, i disegni, le foto anche se non 
pubblicati, non si restituiscono. 


Grazie, innanzitutto, per la massiccia adesione al 
questionario pubblicato nel numero precedente di Applicando: 
stiamo elaborando i dati, che ci permetteranno di fare una rivista 
sempre più adeguata al gusto e alle esigenze dei lettori. 

Gli ultimi due numeri di Applicando sono andati esauriti, di 
conseguenza abbiamo dovuto aumentare la tiratura del 40 per 
cento. Grazie anche per questo: la forza di una rivista si basa 
soprattutto sul plauso dei propri lettori. L'entusiasmo con cui ci 
seguite ci permette di impiegare sempre maggiori forze nel 
“fabbricare", numero per numero, Applicando. 

Questo mese, in omaggio, trovate il Brillacomputer. Nella sua 
semplicità è davvero utile, perché, lo sappiamo tutti, a causa 
dell'elettricità elettrostatica la carrozzeria e il video di 
qualunque computer si sporcano facilmente, con le conseguenze 
antiestetiche del caso. Come pulirlo? E' un problema. Guai ai panni 
inumiditi. L'alcol va bene? Chi lo sa. E con quello che costa il 
computer, meglio tenerselo così. Invece, con il fazzolettino 
imbevuto dello speciale prodotto detergente, potete andare 
tranquilli. 

Fra i programmi di questo numero, tutti validi e, spero, 
interessanti per voi, vorrei segnalarvi in particolare quello che 
permette di raccogliere, suddivise per argomento, le ricette di 
cucina. E' piaciuto così tanto a Gualtiero Marchesi, che il “Divino" 
della Nouvelle Cuisine ha voluto offrire ai lettori di Applicando 
alcune sue ricette speciali. 

E poi due Utilities davvero ottime: un sintetizzatore di suoni 
che permette di "applicare" una colonna sonora ai programmi di 
vostra produzione e un generatore di menù automatici, che 
trasforma il più semplice dei programmi in un lavoro da veri 
professionisti. 

E poi... be', non voglio togliervi il piacere di scoprire da soli 
quanto ancora troverete nelle pagine di questo numero. Buona 
lettura. 



Servizio abbonamenti: Editronica srl. 
C.so Monforte 39, Milano - Conto Cor¬ 
rente Postale n. 19740208 - Una co¬ 
pia L. 5.000. Arretrati 7.000 lire. Abbo¬ 
namento 10 numeri (senza dono) L. 
40.000 (estero L. 60.000). Abbona¬ 
mento 10 numeri, più le Pagine del 
Software per Apple, L. 50.000 (estero 
70.000). Periodico mensile - Stampa: 
Sagdos, Via Europa 22/28, Brugherio 
(MI) - Fotocomposizione: News, Via 
Nino Bixio 6, Milano - Fotolito: Medio- 
lanum Color Separation, Via Marcona 
3, Milano. € Copyright 1985 by Editro¬ 
nica srl - Registrazione Tribunale di 
Milano n.24del 15.1.1983 -Pubblicità 
inferiore al 70% 



P.S. Un ringraziamento anche alla Polaroid Italia, che con il Palette 
messoci a disposizione ci ha permesso di pubblicare le foto di 
alcune immagini che non solo hanno abbellito esteticamente 
Applicando (vedi il Bridge, Golf, Volano, ecc.), ma testimoniano 
l'attenzione e lo sforzo di aziende, come appunto la Polaroid, di 
essere al passo coi tempi e di fare del computer uno strumento 
sempre più completo e indispensabile al mondo di oggi. 
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"Ovunque mi compri 
sono garantito 
un anno, ma solo 

la SALS INFORMATICA 

mi assiste gratuitamente 


a casa". 


L'offerta è valida per 
tutti i sistemi APPLE 
venduti dalia 
SALS INFORMATICA, 
a Genova, a partire 
dal 31 marzo 1985. 




Curare 
con l’Apple 

Quello della ricerca scien¬ 
tifica, si sa, è tra i campi che 
più hanno tratto profitto 
dall’avvento del computer. 
Il tempo necessario per veri¬ 
ficare un'ipotesi, racco¬ 
gliendo dati, elaborandoli e 
confrontandoli si è vertigi¬ 
nosamente ridotto; l'accura¬ 
tezza metodologica e la pre¬ 
cisione strumentale raggiun¬ 
te in laboratorio hanno di 
molto accresciuto il grado di 
certezza dei risultati speri¬ 
mentali; la capacità di me¬ 
morizzazione dati dei com¬ 
puter, praticamente illimita¬ 
ta, ha permesso infine di im¬ 
magazzinare moltissime in¬ 
formazioni preziose per le 
successive ricerche. 

Non soltanto ai grandi 
eleboratori, però, va il meri¬ 
to di avere snellito metodo¬ 
logie e aperto nuove pro¬ 
spettive; spesso anzi è stato 
proprio il personal compu¬ 
ter, per la sua agilità di uti¬ 
lizzazione e per i costi conte¬ 
nuti, a permettere entusia¬ 
smanti applicazioni. 

A Pesaro l’équipe di ricer¬ 
ca della divisione ematologi¬ 
ca guidata dal prof. Guido 
Lucarelli lavora da tempo 
con un Apple //, fornito dal¬ 
l'Associazione italiana con¬ 
tro la leucemia, direttamen¬ 
te collegato a un microsco¬ 
pio Leitz. Con questa attrez¬ 
zatura i ricercatori hanno la 
possibilità di analizzare al 
microscopio le cellule da 
esaminare, inserendo diret¬ 
tamente nell’elaboratore i 
valori degli indici identifica¬ 
ti. È l'Apple che provvede, 
automaticamente, a sposta¬ 
re il microscopio sui due assi 
coordinati, posizionandolo 
correttamente secondo una 
geomatria prefissata dagli 
stessi ricercatori. 

Una volta immagazzinati, 
i dati vengono elaborati dal¬ 
l'Apple. "Le informazioni 
prodotte dall’elaboratore 
sono per noi utilissime per¬ 
ché consentono una mag¬ 
gior accuratezza nella dia¬ 
gnosi della leucemia acuta 
con anticorpi monoclonali e 



La dottoressa Nesci, della divisione ematologica di 
Pesaro, interroga l'Apple // nel laboratorio di immunologia. 


nella ricerca di compatibilità 
HLA per il trapianto di mi¬ 
dollo osseo" spiega il prof. 
Lucarelli. E quella del tra¬ 
pianto osseo, tecnica nella 
quale la sua équipe è all’a¬ 
vanguardia, è la tecnica te¬ 
rapeutica attualmente allo 
studio per combattere alcu¬ 
ne forme di leucemia. 

Il software utilizzato dal¬ 
l'Apple della divisione ema¬ 
tologica, ovviamente, è sta¬ 
to creato su misura: tutti i 
programmi sono stati realiz¬ 
zati dallo Studio Computer 
Design di Pesaro dove però, 
con lodevole correttezza, 
precisano che "il merito di 
aver saputo progettare pro¬ 
grammi tanto preziosi e ine¬ 
diti va tutto al dottor Delfini 
del laboratorio di immuno¬ 
logia". 

Divulgare 
con l’Apple 

Il dott. Sergio Rassu di 
Sassari, studioso di endocri¬ 
nologia, si definisce "fortu¬ 
nato possessore di un Apple 
II Europlus". Nella sua fati¬ 
ca di autore scientifico, in¬ 
fatti, l’aiuto del personal 
computer non è un sollievo 
da poco. 

Il Pancreas endocrino, 
per esempio, che tra l'altro è 
un volume ricco di disegni, 
schemi e diagrammi, è stato 


realizzato sulla tastiera del¬ 
l'Apple con software di listi¬ 
no. 

L'idea di stendere e dif¬ 
fondere a livello nazionale 
una serie di monografie di¬ 
vulgative, ma rigorosamen¬ 
te curate, di endocrinologia 


A destra, la copertina di un 
volume della collana 
"Caleidoscopio", diretta dal 
dott. Rassu di Sassari che è 
anche l’autore di questo 
saggio. 

In basso, un disegno tratto 
dal libro del dott. Rassu, 
realizzato con l’Apple II 
Europlus. Si tratta della 
raffigurazione schematica di 
un meccanismo stimolatore 
della secrezione del 
glucagone. 


era parsa al dott. Rassu sen¬ 
za dubbio interessante, ma 
non destinata, forse, a sti¬ 
molare l'interesse di un va¬ 
sto pubblico di lettori. 

Invece, "dopo i primi nu¬ 
meri con i quali abbiamo 
saggiato l'interesse per que¬ 
sta iniziativa di divulgazione 
scientifica dell’Endocrino¬ 
logia, ci siamo resi conto, 
dalle richieste ricevute, del¬ 
l'enorme interesse e curiosi¬ 
tà che la circonda." 

Di conseguenza il dott. 
Rassu, che dirige questa col¬ 
lana, e la Medicai Systems di 
Genova, che la sostiene eco¬ 
nomicamente. hanno inten¬ 
sificato l'attività editoriale: 
la collana è stata ufficializza¬ 
ta (adesso infatti ha anche 
un nome: "Caleidoscopio") e 
il programma rinvigorito, 
con nuovi titoli in program¬ 
mazione e con la partecipa¬ 
zione all'iniziativa di un 
sempre maggior numero di 
autori. 
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O SUPER VISION III. Monitorcolori 12”, scher¬ 
mo antiriflesso. Possibilità di funzionamento 
in text mode su fosfori verde, ambra, bianco rever¬ 
se, selezionabili dall’utente. Risoluzione640x262. 

O VISION PAL. Monitorcolori 12”, schermo an¬ 
tiriflesso. Possibilità di funzionamento in text 
mode su fosfori verde, ambra, selezionabili dal¬ 
l’utente. Ingresso videocomposito. Low cost. 

O VISION PC. Monitorcolori 12”, schermo anti¬ 
riflesso. Appositamente progettato per IBM 
PC. Risoluzione 640x262. 

O RGB VISION II. Monitor colori 12”. Risolu¬ 
zione 510x262. Ingresso RGB. Filtro smoked 
in dotazione. 

O KX1201 - E. Monitor fosfori verdi 12”, scher¬ 
mo antiriflesso. Ingresso videocomposito. 
Opzionale piedestallo di basculaggio KTS-1 con 


orologio LCD incorporato (rif. 16). 

O KX1212- E. Monitorfosfori verdi 12, schermo 
antiriflesso, compatibile con IBM PC. Opzio¬ 
nale piedestallo di basculaggio KTS-2 con orolo¬ 
gio LCD incorporato (rif. 17). 

O KP910. Stampante a matrice 9x9,156 colon¬ 
ne a 140 cps bidirezionali ottimizzati, trasci¬ 
namento trattori e frizione, grafica. Elevata silen¬ 
zio sità. Near letter quality. Interfaccia Centronics. 
Disponibilefirmware percompatibilitàcon IBM PC. 
Capacità stampa su originale + 3 copie. 

Opzioni: (rif. 9) e (rif. 12). 

O KP-810. Come KP910. Stampa su 80 colon¬ 
ne. Capacità stampa: originale + 2 copie. 

© KIF4308. Buffer di memoria esterno da64K 
bytes espandibili fino a 256 K bytes. 

Può pilotare due stampanti. 


© 


KFD 510. Minifloppy 5” 1/4 da 140K b) 


' slim line. Per Apple computers e compatii 
Apple. 

O KIF 3600. Interfaccia colore grafica per IE 
PC. Da utilizzare con Vision PC (rif. 3) e suf 
Vision III (rif. 1). 

- k KIF 3502. Interfaccia seriale RS 232 C. 


0 * 


© KIF 3210 S/64. Espansione di memoria 
64K a 256K bytes per IBM PC completa 
interfaccia seriale RS 232 C. 

© RGB II B. Interfaccia RGB per compu 
Applell plus e Applell e, per i monitor(rif. 1 
(rif. 4). 


© KIF3700. Interfaccia monocromatica est 
panteperIBM PC. Dautilizzarecon KX121 
(rif. 6) e KP 910 o 810 (rif. 7) e (rif. 8). 
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Gigante nella qualità. Le periferiche TAXAN si 
sono imposte sul mercato USA per l’eccezionale 
affidabilità che nasce da una progettazipne”senza 
economia” ed un’accurata scelta dei componenti 
impiegati. 


Gigante nella gamma. TAXAN offre una gamma 
completa di periferiche”made in Japan”, ideale per 
ognitipodi personalcomputer(IBM, APPLE, COM¬ 
MODORE, SINCLAIR, BBC, ecc.). 


Gigante nella convenienza. Decisamente com¬ 
petitivo, il prezzo è infine un’altra piacevole qualità 
delle periferiche TAXAN. 


Eledra - Sede 

Milano - Viale Elvezia, 18 

Tel. (02)34.97.51 (24 linee) - Telex332.332 ELEDRA I 


Eledra - Filiali 
Torino 

Tel. (Oli) 30.99.111 - Telex 210.632 ELEDAT I 

Padova 

Tel. (049) 65.54.88 - Telex 430.444 ELEDAP I 

Bologna 

Tel. (051) 30.77.81 - Telex 213.406 ELEDAB I 

Roma 

Tel. (06) 81.10.151 - Telex 612.051 ELEDAR I 

Bari 

Tel. (080) 81.43.95 


Partner distributivi 

Genova - Informatica Service 
Tel. (010) 56.43.35 

Udine - Asem s.p.a. 

Tel. (0432) 96.10.14 - Telex 450.608 ASEM I 


ELEDRAfH 

DISTRIBUTORE PRODOTTI ELETTRONICI N°1 








Un Macintosh 
giramondo 

Non si tratta dell’ultimo 
slogan pubblicitario, usato 
dalla Apple per rimarcare 
l'enorme diffusione che Mac 
ha già avuto sulle scrivanie 
di tutto il mondo. In questo 
caso, semplicemente e spet¬ 
tacolarmente, il simpatico 
personal ha prestato il suo 
nome a una gigantesca im¬ 
barcazione a vela, che parte¬ 
ciperà alla prossima edizio¬ 
ne del Giro del Mondo. La 
famosa regata per barche a 
vela, partendo dall'Inghil¬ 
terra, porta i concorrenti ne¬ 
gli oceani di tutto il mondo 
in quattro tappe: Cape 
Town, Sidney, Rio e, nuo¬ 
vamente, Inghilterra. 

Apple Macintosh è un’im¬ 
barcazione di 25 m di lun¬ 
ghezza, costruita su proget¬ 
to dello Studio Farr di An- 
napolis con le più avanzate 
tecniche costruttive e i ma¬ 
teriali più sofisticati oggi a 
disposizione. Il suo costo, 
naturalmente, è astronomi¬ 
co: sono stati infatti stanziati 
due milioni di dollari per la 
sola costruzione della barca, 
mentre un altro rilevante 
budget è stato previsto per 
le spese di partecipazione al¬ 
la massacrante corsa intorno 
al mondo. 

Con un peso totale di 
30.000 kg, Apple Macintosh 
ne ha in realtà ben 15.000 di 
zavorra; l'albero pesa 2.000 
kg e lo scafo raggiunge a ma¬ 
lapena i 9.000. Proprio que¬ 
sti dati fanno capire quanto 
sia sofisticata la tecnica co¬ 
struttiva adottata per questa 
imbarcazione. Lo scafo è in¬ 
fatti interamente in kevlar e 
vetro, con una struttura "a 
sandwich" che utilizza come 
anima il Nomex, un mate¬ 
riale impiegato nelle più 
avanzate costruzioni (Shut¬ 
tle, FI, componentistica de¬ 
gli aerei militari e commer¬ 
ciali) oltre a una schiuma 
poliuretanica ad alta densi¬ 
tà. La struttura interna di 
rinforzo dello scafo, e di so¬ 
stegno per la pesantissima 
chiglia di zavorra, è in allu¬ 
minio scatolato; è stata rea¬ 


lizzata a parte e successiva¬ 
mente introdotta nello scafo 
e debitamente collegata. 
L'albero, alto ben 32 m, è 
anch'esso in alluminio, frut¬ 
to di un'unica estrusione, 
mentre tutti i suoi cavi di so¬ 
stegno sono stati realizzati 
con tondini di acciaio inox a 
elevatissima resistenza. 

Tra le molte particolarità 
tecniche degne di nota c’è la 
costruzione del timone con 
un asse in titanio, realizzato 
per martellatura da un qua¬ 
dro pieno e successivamente 
forato, per alleggerirlo, con 
un getto di plasma (la stessa 
tecnologia che si usa oggi 
per realizzare i condotti di 
lubrificazione degli assi del¬ 
le gigantesche turbine idrau¬ 
liche da centrale elettrica). 
Pare che il solo timone sia 
costato 25.000 dollari! An¬ 
che la fusione della chiglia 
ha richiesto una tecnica par¬ 
ticolare a causa deH’enorme 
quantità di calore da smalti¬ 
re nella fase di raffredda¬ 
mento: si è quindi dovuto 
provvedere a effettuare fu¬ 
sioni successive, l'una sopra 
l’altra, per evitare che la 
gabbia in acciaio inox che 
regge i perni di collegamen¬ 
to con lo scafo venisse defor¬ 
mata dall'enorme calore 
delle 15 tonn. di piombo. 

Naturalmente l'elettroni¬ 


ca ha una grande importan¬ 
za su Apple Macintosh: pur 
non essendo installato a bor¬ 
do un computer "di serie", la 
strumentazione di controllo 
delle numerose funzioni di 
bordo e di ausilio per la na¬ 
vigazione sono state ricava¬ 
te in gran parte da "schede" 
del noto computer. Per le 
esigenze elettriche di bordo 
sono stati invece previsti 
ben due generatori di cor¬ 
rente, che avranno il compi¬ 
to di ricaricare le batterie 
quando l'insolazione non 
permetterà alle celle foto- 
voltaiche installate di forni¬ 
re energia sufficiente alla 
strumentazione elettronica 
e alle altre utenze. 

Apple Macintosh è certa¬ 
mente uno dei candidati alla 
vittoria nella difficilissima 
regata intorno al mondo; es¬ 
sendo ai limiti superiori del¬ 
le misure ammesse, ha dalla 
sua parte un enorme poten¬ 


ziale che solo scelte sbaglia¬ 
te o sfavorevoli condizioni 
meteo possono ridurre. 

Tedesca 
e seriale 

Si chiama Juki 5520, arri¬ 
va da Amburgo ed è così 
nuova che non c'è ancora: a 
un prezzo tuttora misterio¬ 
so, ma senz’altro interessan¬ 
te, giungerà infatti solo in 
giugno sul mercato italiano. 

Seriale e versatile, la nuo¬ 
va stampante colore e lette¬ 
ra, molto affidabile e facile 
da usare, ha la velocità di 
180 caratteri per secondo e 
permette una gamma di rea¬ 
lizzazioni piuttosto varia; 
anche il set dei caratteri e 
dei modi di stampa è esteso. 
È inoltre silenziosa (meno di 
60 DB) e compatta (463 x 
445 x 100 mm). 
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193 e vantano bassa rumoro¬ 
sità (55 DB), consumi con¬ 
tenuti (33 VA) ed elevata af¬ 
fidabilità: la testina, infatti, 
ha una vita media di 200 mi¬ 
lioni di caratteri; la velocità 
è di 160 cps. La larghezza è 
di 80 colonne per ML 192 e 
di 136 per ML 193. Il terzo 
modello infine, ML 182, ha 
una velocità di 120 cps con 
80 colonne; diversamente 
dagli altri due non stampa in 
qualità lettera, non monta 
Linseritore automatico di 
fogli, né programma simboli 
speciali. Semplicissima da 
usare, però, e molto econo¬ 
mica, la stampante ML 182 
ha inoltre dalla sua un'altis¬ 
sima affidablità: 4.000 ore di 
MTBF. 

Un Profile 
per tavolozza 

Si è felicemente conclusa 
a Venezia, in piazza San 
Marco, un’esposizione di 
opere di giovani pittori rea¬ 
lizzata dalla fondazione Be¬ 
vilacqua La Masa con il pa¬ 
trocinio dell’assessorato alla 
cultura del comune. Tra gli 
artisti espositori è stato mol¬ 
to apprezzato (si è aggiudi¬ 
cato anche un "premio ac¬ 
quisto") Massimiliano Lon- 
go, che ha proposto una se¬ 
rie di opere di computer art. 
I suoi "dipinti" sono stati rea¬ 
lizzati tutti con un Apple //e 
con monitor a colori Taxan e 
con Profile, messi a disposi¬ 
zione dalla Personal Com- 
puters Sas di Cannaregio. 


Microlinefailbis 

Senza nessuna variazione 
di prezzo, la serie Microline 
si rinnova: tre nuovi model¬ 
li, infatti, stanno facendo la 
loro apparizione sul merca¬ 
to italiano; interfacciabili 
con il Macintosh, due di 
queste nuove stampanti gli 
si addicono soprattutto per 
la densità di stampa in modo 
grafico: può raggiungere i 
288 x 144 punti per pollice, e 
consente quindi la realizza¬ 
zione di grafici e disegni ad 
alta risoluzione. 

Sono facilmente pro¬ 
grammabili anche da pan¬ 
nello, oltre che da software, 
cosicché, in base al menù, 
sono possibili molte soluzio¬ 
ni personalizzate, che resta¬ 
no memorizzate anche a 
macchina spenta e riappaio¬ 
no per default all’accensio- 
ne. Il set di caratteri è molto 
esteso, e molto varia anche 
la scelta dei modi di stampa. 

Si chiamano ML 192 e ML 


L’Apple He con Prof Me e il 
monitor a colori Taxan 
con un’immagine 
dell’opera di 
Massimiliano Longo. 


Nella pagina accanto, Apple Macintosh al varo in Sud Africa: 
notare la proporzione tra la dimensione dello scafo e quello 
delle persone a bordo. Qui sopra, una vista della coperta. 


Lunga vita 
per i drive 

Mille impurità, all’insa¬ 
puta dei più, si installano 
ogni giorno all’interno dei 
disk drive, congiurando 
contro la loro salute. La 
spolveratina esterna e l’at¬ 
tenzione a non lasciare trop¬ 
po in giro, alla polvere, i di¬ 
schetti che vi andranno inse¬ 
riti non bastano certo a man¬ 
tenere i drive davvero puliti; 
puliti, cioè, anche di dentro. 
Detto questo, però, resta da 
scoprire come si possa cura¬ 
re la pulizia di ordigni così 
impenetrabili: ci passa giu¬ 
sto giusto un dischetto! 

E proprio un disco, infat¬ 
ti, da far "girare" per mezzo 
minuto nel drive a testine in¬ 
serite, è la soluzione al pro¬ 
blema. Si chiama Cleanette 
ed è realizzato in fibra assor- 
bente: prima dell'inseri¬ 
mento vi si versano alcune 
gocce di un apposito liquido 
detergente, e pulizia è fatta. 
Si deve ripetere l'operazio¬ 
ne molto spesso, per la buo¬ 
na salute del drive (un paio 
di volte la settimana), sosti¬ 
tuendo il disco con uno nuo¬ 
vo non appena si nota che 
detriti e impurità vi si sono 
depositati. Lunga vita, allo¬ 
ra, al drive. 


Qui sotto, il nuovo set 
Cleanette con il liquido e i 
dischetti da far girare nel 
drive per mantenerlo pulito 












"Gli manca il sorriso", qualcuno ha 
affermato. "Quello che appare una 
volta inserito il dischetto non è 
sufficiente." Ma da quando è 
approdato sulla scrivania di chi 
disegna fumetti, il Macintosh è ormai 
disponibile con sorriso a 512 K. 



Un sorriso col Mac 


M ario Barbati, napole¬ 
tano, ventenne, al se¬ 
condo anno di architettura, 
si diletta di fumetti. Fino a 
qualche tempo fa li disegna¬ 
va a matita, come tutti, del 
resto. Ma da quando ha avu¬ 
to per le mani un Macintosh 
"ha scoperto il suo mezzo 
grafico ideale" come lui stes¬ 
so afferma. E col Macintosh 
ha realizzato il primo fumet¬ 
to fatto col computer e pub¬ 
blicato su 2984. 

Ad Applicando ha man¬ 
dato queste tre tavole, che 
pubblichiamo non solo per 
concedere cinque minuti 
d'intervallo sorridente ai 
nostri lettori, ma anche per 
testimoniare, una volta di 
più, la versatilità di questa 
macchina in campo grafico. 

Certo, senza l’idea, senza 
un minimo di tecnica, questi 
risultati non sarebbero facil¬ 
mente ottenibili, ma senza 
Macintosh i tempi di realiz¬ 
zazione si allungherebbero 
notevolmente. Ogni fondi¬ 
no, anziché un tocco di mou¬ 
se, richiederebbe una pa¬ 
zienza certosina. E ogni er¬ 
rore, poi, rischierebbe di 
compromettere tutto il lavo¬ 
ro. 

Qualche lettore accetta la 
sfida e vuole misurarsi an¬ 
che lui sul creativo terreno 
di Mac? 
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Computer cuisine 


Nella vita di ognuno, e 
più precisamente nella 
credenza della sua 
cucina, c’è un cassetto 
un po’ disordinato, 
troppo pieno di fogli e 
foglietti, ritagli e appunti: 
sono le meravigliose 
ricette della zia, i 
consigli dell’amica e i 
suggerimenti della 
rivista preferita... Un 
patrimonio prezioso, 
che allieta ogni giorno il 
già felice rito del sedersi 
atavola. Ma... un po’di 
ordine non ci starebbe 
bene? Più veloce da 
consultare, senza il 
rischio di far confusione, 
il ricettario personale 
diventa più ricco e 
pratico. Se poi l’amica 
vuole una delle “vostre 
ricette”, unastampatina 
evia! 


DOS 3.3 +>W 

ProDOS 

APPLE 7/t +1111 
APPLE //c +11!! 


ff |m o, credimi, come la fa mia zia 
HI non lo fa nessuno”. Il salto con 
l’asta? Il massaggio con il balsamo Ti¬ 
gre? Il timballo di maccheroni, più 
probabilmente, oppure lo strudel, o 
semplicemente, perché no, l’uovo in 
padella. A volte sono anni e anni di 
oscura laboriosità casalinga, a volte è 
l’intuizione di un felice momento a 
sfociare nella gloriosa scoperta: basta 
aggiungere un cucchiaio di brandy sei 
minuti prima di spegnere il fuoco; il 
burro deve essere tiepido; mi racco¬ 
mando, carote piccoline! e così via... 

Ben oltre i quattro libri di cucina 
sullo scaffale si estende infatti il patri¬ 
monio di informazioni gastronomiche, 


le più svariate, che concorrono ogni 
giorno a movimentare le sorti del no¬ 
stro palato e del nostro fegato: al se¬ 
greto della zia si accompagna infatti il 
consiglio dello chef, il trucco svelato 
da una rivista, l’esperimento suggerito 
dal collega, la ricetta sulla scatola dei 
pelati... E giù appunti, ritagli, fogliet¬ 
ti, scampoli di giornale e brandelli di 
block notes. 

Il terzo cassetto dall’alto, quello 
“delle ricette”, si riempie sempre di 
più; geniali idee scritte da mani diver¬ 
se impallidiscono in pile disordinate, 
foglietti giallini diventano un po’ trop¬ 
po ciancicati, si comincia a non trovare 
più quello di cui si ha bisogno: è il 


momento, perché negarlo, del perso¬ 
nal computer. Mettiamogli il berretto 
da cuoco^e, insieme, gli occhiali da 
segretario pignolo; diventerà il custo¬ 
de geloso e ordinato, bravissimo, della 
preziosa raccolta dei nostri saporitissi¬ 
mi segreti... 

E... se l’abilissima zia dai mille truc¬ 
chi siete proprio voi? Tanto meglio: 
più di chiunque altro avete diritto a un 
signor archivio; e quando arriva il fati¬ 
dico momento in cui bussano alla vo¬ 
stra porta, non occorre più cercare 
penna e occhiali per una frettolosa 
scribacchiata: ci pensa la stampante a 
scrivere, ricetta per ricetta o menù per 
menù, i segreti della vostra tavola. 
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Listato 1- "RICETTE" 


LA RICETTA DEL RAVIOLO APERTO 

Ingredienti per 4 persone: 8 noci di capesante; 240 gr. di code di 
scampi piccole e sgusciate; 200 gr. dì filetto di rombo; 20 gr. di 
burro; 1 di. di panna; 3 cl. di vino bianco secco; zafferano in 
stami; sale e pepe bianco; 4 lasagne verdi agli spinaci; 30 gr. di 
pasta all'uovo; 4 grandi foglie di prezzemolo. 


Procedimento: stendere sottilmente la pasta all’uovo. Rita¬ 
gliare dalla sfoglia 8 lasagne grandi. Collocare al centro di 4 di 
esse una foglia di prezzemolo. Ricoprire con le restanti e 


*********************** 
***** ***** 

***** RICETTE ***** 
***** ***** 

*********************** 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 
92 GOTO 100 

95 GET YN$: IF YN$ = CHR* (8) OR YN$ = CHR$ (21) OR YN* = 

CHR$ (34) OR YN$ = CHR$ (44) OR YN$ = CHR$ (59) OR 
YN* = CHR* (10) THEN 95 

96 RETURN 

100 0NERR GOTO 1820 

110 TEXT : HOME : CLEAR :D$ = CHR$ (4) 

120 OIM B*(20) 

130 F$< 1)_= 'antipasti':Ff(Z) = 'primi piatti" sFf<3) = ’car 
ni' 

'dolci' 

REM 


1) = 'antipasti*:F*(2) = 'primi piatti':F$<3) = 'c 
*:F$(4) = 5 pesce':F$(5) = Contorni e uova*:F$(6) 


140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 


260 


****************************** 
***** ***** 

***** menu principale ***** 
***** ***** 

****************************** 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

YTAB 1: FOR X = 1 TO 80: PRINT NEXT X: VTAB 2: HTAB 
1: PRINT '****'; SPC( 72);'****' 

VTAB 3: HTAB 1: PRINT '****'; SPC( 24);: INVERSE : PRINT 
'INSERIMENTO NUOVE RICETTE';: NORMAL : PRINT SPC( 23) 
;'****' 

•vTTAB 4: HTAB 1: PRINT '****'; SPC( 72) ;'****': VTAB 5: 


FOR X = 1 TO 80: PRINT '*';: NEXT X 


Continua 


ripassare le doppie lasagne così ottenute col mattarello o alla 
macchina in modo da fare aderire bene e ottenere il giusto 
spessore (la foglia di prezzemolo sarà allora visibile in traspa¬ 
renza). 

Tagliare a metà le noci di capesante, il rombo a pezzetti. 
Salare e pepare i pesci. In una casseruola sciogliere il burro, 
inserire gli scampi aggiungendo successivamente le capesante 
e la polpa di rombo. Spruzzare col vino bianco, lasciare insa¬ 
porire per un istante, ed estrarre i pesci dalla casseruola. Fare 
ridurre il fondo di cottura quasi fino a zero, aggiungere la 
panna, lo zafferano; fare ridurre ulteriormente, fino ad otte¬ 
nere una salsa semiliquida. 

Cuocere nel frattempo le lasagne in abbondante acqua bol¬ 
lente e salata. Reinserire in casseruola i pesci e l’eventuale 
liquido che nel frattempo potrebbero aver ceduto. Far ripren¬ 
dere il bollore, e disporre la salsa ed i pesci sulle lasagne verdi 
disposte sul fondo dei piatti, ricoprendole con le lasagne in cui 
è impressa la foglia di prezzemolo. 
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Due programmi due 

Si chiamano HELLO e RICET¬ 
TE , e sono due programmi distinti. Il 
motivo dello sdoppiamento è di ordine 
pratico: gestire separatamente le due 
fasi deirinserimento di nuove ricette e 
della consultazione, rendendo più 
consultabili i file. 

Si utilizzerà un dischetto nuovo per 
l’archivio di cucina, inserendo il pro¬ 
gramma di consultazione come pro¬ 
gramma di lancio; il primo dei due, il 
programma di inserimento, è RICET¬ 
TE, il secondo, di consultazione, è 
HELLO. D’altra parte, le opzioni di 


scelta dei menù che di volta in volta 
appariranno sullo schermo permette¬ 
ranno di passare da un programma al¬ 
l’altro, lasciando sempre al personal 
computer il controllo delle operazioni. 

Utilissimi e molto semplici da usare, 
questi due programmi hanno un gran¬ 
dissimo merito: permettono finalmen¬ 
te al computer di mettere il dito tra 
moglie e marito... Scoprendo in lui un 
simpatico aiuto cuoco, la signora, in¬ 
fatti, comprenderà un po’ di più il per¬ 
ché delle lunghe ore di dialogo silen¬ 
zioso (a parte i BEEP) tra il suo con¬ 
sorte e quel diavolo di macchina. E 
sarà pace in famiglia. 


Come funziona 
l’archivio 

L’intero archivio permette di inseri¬ 
re le ricette in 6 sottogruppi, e precisa- 
mente: 1) antipasti; 2) primi piatti; 3) 
carni; 4) pesce; 5) contorni e uova; 6) 
dolci. In ogni sottogruppo le ricette 
vengono identificate con un titolo 
(lungo al massimo 40 caratteri) e ri¬ 
chiamate successivamente con il nu¬ 
mero che apparirà sul video accanto al 
titolo stesso. Per ciascuna ricetta sono 
poi previste 5 righe, di 70 caratteri cia¬ 
scuna, per l’elenco degli ingredienti 
necessari alla preparazione, descritta 


270 VTAB 10: HTAB 20: PR1NT 'Questi sono i comandi :' 

280 VTAB 12: HTAB 25: IWERSE : PRINT T;: N0RMAL : PR1NT 
* Creazione di un nuovo ricettano* 

290 VTAB 14: HTAB 25: INVERSE : PRINT '2';: N0RMAL : PRINT 
' Inserimento nuove ricette' 

300 VTAB 16: HTAB 25: INVERSE : PRINT '3';: N0RMAL : PRINT 
' Torna ai menu' principale' 

310 G0SUB 1760 

320 IF YNf < ) '!' AND YNf < > '2' AND YNf < > '3' THEN 
310 

330 1F YNf = '3' THEN HOME : PRINT D$;'RUN HELLO' 

340 SNf = YNf 

350 VTAB 9: HTAB 1: CALL - 958: HTAB 5: PRINT 'Che tipo d 
i ricetta vuoi inserire ?': PRINT 
360 FOR X = 1 T0 6: HTAB 30: INVERSE : PRINT X;: NORMAL : PRINT 
' ':Ff(X): PRINT : NEXT X 

370 GOSÙB 1760: 1F VAL (YNf) > 6 OR VAL (YNf) < 1 THEN 3 
70 

380 VTA6 9: HTAB 1 : CALL * 958:NY = VAL (YNf)sNYf = YNf 
390 Flf = 'ELENCO' ♦ NYf:F2f = 'RICETTE' 4 NY$: 1F SN$ = '2' 

THEN 670 
400 REM 

410 REM 

420 REM **************************************** 

430 REM ***** ***** 

440 REM ***** creazione di un nuovo file ***** 

450 REM ***** ***** 

460 REM **************************************** 

470 REM 

480 REM 

490 PRINT 'ATTENZIONE '!! Proseoui solo se sei si 

curo che non esista qia'* : PRINT : PRINT TAB( 25)'un 
ricettario di '•:Ff(NY):''.' 

500 PRINT : PRINT TAB< 25rSe non sei perfettamente sicur 
o e per non rischiare': PRINT : PRINT TAB( 25)'dannos 
e cancellazioni, interrompi l'esecuzione' 

510 PRINT : PRINT TAB( 25)'e controlla le ricette già' es 

istenti.": PRINT : HTAB 25: INPUT 'Vuoi proseguire ? ( 

S/N) "jNSf 

520 VTAB 9: HTAB 1: CALL - 958 

530 IF NSf = 'S' OR NSf = 's' THEN 570 

540 PRINT 'Se vuoi creare un ricettario di '";Ff(NY) 

550 PRINT : PRINT 'accertati che non esistano già' files d 

i nome ';Flf;' e ';F2$:\" 

560 END 

570 FJf = Flf: HTAB 10: PRINT 'Il file ':FIf;' conterrà' 1' 
elenco delle ricette di ';Ff(NY). 

580 60SUB 1420: PRINT 

590 Flf = F2f: HTAB 10: PRINT '11 file ';FIf;' conterrà' le 
ricette di *;Ff(NY);'.* 

600 G0SUB 1420 

610 FOR X = 1 T0 1000: NEXT X 

620 VTAB 9: HTAB 1: CALL - 958: GOTO 270 

630 REM 

640 REM 

650 REM *************************************** 

660 REM ***** ***** 

670 REM ***** inserimento nuovi records ***** 

680 REM ***** ***** 

690 REM *************************************** 

700 REM 

710 REM 


720 6QSUB 1540: REM ricerca del file 
730 G0SUB 1710: REM apre il file e legge il numero di ree 
ord contenuti 

740 IF W = 1 THEN VTAB 7: HTAB 20: PRINT '***♦* NOME DE 
LLA NUOVA RICETTA *****“: PRINT : HTAB 5: PRINT 'Gues 
ta sara' la ricetta numero *;M 4 1 ;• ( , :Ff(NY);') .' 

750 IF W = 2 THEN VTAB 7: HTAB 15: PRINT ****** ELENCO 
INGREDIENTI ***♦*': PRINT : HTAB 5: PRINT 'Hai a dispo 
sizione 5 righe per elencare': PRINT TAB( 5);'gli ing 
redienti della nuova ricetta ( , :Ff(NY);') .' 

760 IF W = 3 THEN VTAB 7: HTAB 15: PRINT ****** MODO DI 
ESECUZIONE ****** : PRINT : HTAB 5: PRINT 'Hai a disp 
osizione 12 righe per illustrare la preparazione': HTAB 
5: PRINT 'della nuova ricetta (';Ff(NY);') .' 

770 PRINT TAB( 5);'Premi (3) per ribattere una riga sbagl 
iata.': PRINT TAB( 5):'Non puoi utilizzare i caratter 
i <,) <;>. Premi (RETURN) per finire.' 

780 IF hN = 3 THEN PRINT : PRINT TAB< 5) j'Ricorda Queste 
avvertenze, premi un tasto per cominciare -~> GET 
XXf: PRINT XXf: VTAB 7: HTAB 1: CALL - 958 
790 PRINT : IF W = 1 THEN HTAB 15 
800 PRINT '*** lungh. riga ':: FOR K = 0 TO LL - 17: PRINT 
'*':: NEXT K: PRINT PRINT :VT = PEEK (37) 4 1 
810 VTAB VT: IF LL > 40 THEN 880 
820 HTAB 15: CALL - 958:Bf = ":YN = 0 
830 GOSUB 95: PRINT YNf:: IF YNf = CHRf (13) THEN 1010 
840 IF YNf = *3" THEN PRINT : VTAB (VT): GOTO 820 
850 Bf = Bf 4 YNf:YN = YN 4 1• IF YN ) = LL - 5 THEN CALL 
- 1052 

860 IF YN ( LL THEN 830 
870 GOTO 1010 
880 YN = 0 

890 FOR 1 = 0 TO SS:Bf(l) = ": NEXT I 
900 FOR 1 = 0 TO SS 

910 VTAB VT 4 1: HTAB 1: CALL - 958:Y1 = 0:Bf(I) = " 

920 GOSUB 95: PRINT YNf: 

930 IF YNf = '3* THEN PRINT : GOTO 910 
940 IF YNf = CHRf (13) THEN 1010 
950 Bf(l) = Bf<1) 4 YNf 

960 YN = YN 4 JsYl = Y1 4 ls IF Y1 > 65 THEN CALL - 1052 

970 IF Y1 (70 THEN 920 

980 Bf(I) = Bf(I) 4 CHRf (13) 


990 

IF YN > 695 THEN CALL * 1052 


1000 

PRINT 

: NEXT I 


1010 

Bf(I) = 

: Bf(I) 4 CHRf (13) 


1020 

REM 



1030 

REM 



1040 

REM 

*********************************************** 

1050 

*REM 

***** 

*<** 

1060 

*REM 

***** scrittura files ad accesso diretto 

**** 

1070 

*REM 

***** 

**** 

1080 

*REM 

*********************************************** 

1090 

*REM 



11D0 

REM 



1110 

VTAB 23: HTAB 5: CALL - 868: INPUT '(M)enu ' prmeipa 


le - confermi l'inserimento effettuato (S/N) ? —> s ; 


Continua 






Se non volete problemi di memoria, 
meglio far lavorare 3M. 



costruttori, certificate al 100%, ga¬ 
rantite 5 anni, esportate in tutto il 
mondo, distribuite in Italia attraverso 
una rete capillare di 400 punti ven¬ 
dita. E soprattutto disponibili in una 
gamma completa sia nella misura 
da 8 pollici che in quella da 5 e 1/4, e 
con un esclusivo rivestimento ma¬ 
gnetico che consente un’eccezio¬ 
nale resistenza all’usura e la massi¬ 
ma affidabilità. 3M ha sempre una 
risposta pronta per i vostri 
mi di ufficio. 


Prodotti per l’Informatica 

Divisione Sistemi per l’Ufficio 

Sede: Via S. Bovio, 1/3 - 20090 Milano S. Felice - Segrate Tel. 02/75451 
Filiali: Torino Tel. 011/6192192 - Mestre Tel. 041/962255 - Genova Tel. 010/451801 - 
Bologna Tel. 051/557157 - Firenze Tel. 055/355841 - Roma Tel. 06/58421 - Napoli Tel. 081/660266 


I problemi di memoria di 
un’azienda trovano la prima rispo¬ 
sta nella 3M già nel 1951, anno in cui 
la 3M sviluppò il primo nastro ma¬ 
gnetico per computer. 

Questo dato la dice lunga sul 
primato di esperienze tecnologiche 
maturate in questo campo dalla 3M, 
sul patrimonio di qualità e affidabili¬ 
tà della produzione 3M nel settore 
dei supporti magnetici. 

Prendiamo le diskettes, ad 
esempio: omologate dai maggiori 

r-1 

I DISTRIBUTORI 

AUTORIZZATI IN TUTTA 
ITALIA 

: VEDI PAGINE GIALLE 
ALLA VOCE CENTRI 

I MECCANOGRAFICI 
FORNITURE PER 


E non solo con i prodotti per l’in¬ 
formatica. Ma anche con i sistemi di 
fotocopiatura, microfilmatura, visual 
e di telecomunicazione. 

Perchè 3M lavora offrendo so¬ 
luzioni “ad alta tecnologia” per il vo¬ 
stro ufficio. E per tutti gli uffici. 

3M. SISTEMI 
PER L’UFFICIO 


























1120 IF SS* < > 'M' AND SS* < > 'S* AND SS* < > 'N' AND 

SS* < > V AND SS* < > V AND SS* < > V THEN 11 

10 

1130 IF SS* = "N" OR SS* = V THEN 810 

1140 IF SS* = B M B OR SS* = V THEN HOME : GOTO 140 

1150 VTAB 23: HTAB 5: CALL - 868: INPUT , <M>enu / principa 
le - <1>nserisei ancora . Quale —> ';SSÌ: IF SS* < ) 
'M' AND SS* < > T AND SS* < > V AND SS* < > V 
THEN 1150 

1160 IF LL > 40 THEN 1230 

1170 PRINT DÌ;'UR1TE ';FIÌ;',R';M 4 1 

1180 PRINT B*:M = M 4 I 

1190 PRINT D*;"URITE ':FIÌ; B ,R0 B 

1200 PRINT M: CHR* (13) 

1210 PRINT Di 
1220 GOTO 1310 
1230 FOR I = 0 TO SS 

1240 PRINT D*: "URITE ';FIÌ{',R';M ♦ 1 ♦ I 
1250 PRINT Bi(l) 

1260 NEXT 1 

1270 M = M + SS + 1 

1280 PRINT D*;'URITE ";FI*;",R0" 


1290 PRINT M: CHR* (13) 

1300 PRINT Di 

1310 IF SS* = '!' OR SS* = B i' THEN 670 
1320 HOME : GOTO 140 
1330 REM 

1340 REM 

1350 REM *********************************************** 

***** 

1360 REM ***** 

***** 

1370 REM ***** apertura nuovo ti le ad accesso diretto 

***** 

1380 REM ***** 

***** 

1390 REM *********************************************** 

***** 

1400 REM 

1410 REM 

1420 PRINT D*; , OPEN ';F1Ì:',L8Q' 

1430 PRINT D*;"DELETE ':Fli 

1440 PRINT D* ; "OPEN 'jFlij'.LSO' 

1450 PRINT D*:"URITE *;FIi; ,R0' 

Continua 


Listato 2 "HELLO" 


********************** 
***** ***** 

***** HELLO ***** 
***** ***** 

********************** 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 

100 ONERR GOTO 1190 

110 TEXT : HOME : CLEAR :DÌ = CHR$ (4) 

120 DIM B2i<20): PRINT DÌ;'PR#3' 

130 Fi(l) = 'Antipasti':FÌ(2) = 'Primi piatti':F$(3) = 'Car 
ni':Fi(4) = 5 Pesce':FÌ(5) = 'Contorni e uova':F$(6) = 
•Dolci' 

140 REM 

150 REM 

160 REM ****************************** 

170 REM ***** ***** 

180 REM ***** menu' principale ***** 

190 REM ***** ***** 

200 REM ****************************** 

210 REM 

220 REM 

230 MTAB 1: FOR X = 1 TO 80: PRINT NEXT X 
240 VTAB 2: HTAB 1: PRINT '****'; SPC( 72):'****' 

250 VTAB 3: HTAB 1: PRINT '****'; SPC( 20);: IWERSE : PRINT 

•COMPUTER CUISINE';: NORMAL : PRINT SPC< 
19);'*#**' 

260 VTAB 4: HTAB 1: PRINT '****'; SPC< 72) :'****' 

270 VTAB 5: FOR X = 1 T0 80: PRINT '*';: NEXT X 
280 VTAB 7: HTAB 5: PRINT 'Lista dei manicaretti :': 

290 FOR X = 1 TO 6; HTAB 30: INVERSE : PRINT X;: NORMAL : PRINT 

' 'jFÌ(X): PRINT : NEXT X 

300 VTAB 18: HTAB 25: FOR X = 1 TO 30: PRINT NEXT X: 

PRINT " 

310 HTAB 25: PRINT '*** INVERSE : PRINT '7';: NORMAL 
: PRINT " Aggiungi nuove ricette" 

320 PRINT : HTAB'25:‘PRINT '*** ';: INVERSE : PRINT '8';: 

NORMAL : PRINT ' Esci dai programna' 

330 VTAB 23: HTAB 1: CALL - 868: HTAB 5: INPUT 'Premi la 
tua scelta, e poi (RETURN) —> ';YN$ 

340 IF YNi ( > 'P AND YNi ( ) '2' AND YNi < > '3' MD 

YN$ < ) '4' AND YNi < > '5' AND YN$ < > '6' AND YNi 

< > '7' AND YN$ < > '8' THEN 330 
350 IF YN$ = '8' THEN HOME : END 

360 IF YNi = '7' THEN PRINT DÌ;'RUN RICETTE' 

370 Fli = 'ELENCO' 4 YNÌ:F2i = 'RICETTE' 4 YNÌ:YX = VAL (YNi) 
380 REM 


390 REM 

400 REM ************************************ 

410 REM ***** ***** 

420 REM ***** lettura elenco ricette ***** 

430 REM ***** ***** 

440 REM ************************************ 

450 REM 

460 REM 

470 PRINT Dii'OPEN ';Fli;',L80' 

480 PRINT Di ;'READ ';F1Ì;',R0' 

490 INPUT M 

500 PRINT Di 

510 R = 0: HOME : VTAB 1: PRINT '**********'; SPC( 5);FÌ(YX 
); SPC< 5);"**********' 

520 IF RI Ci = *R' THEN 550 

530 VTAB 10: HTAB 10: PRINT 'Attualmente sono presenti ';M 
ricette.': PRINT : INPUT 'Un tasto per proseguire ( 
<M> per il menu'), poi premi (RETURN) —> ':SNi 
540 IF SNi = 'M' OR SNi = V THEN PRINT Dij'CLÓSE': HOME 
: GOTO 280 

550 VTAB 3: CALL - 958:NL = 0 
560 R = R 4 1; IF R ) M THEN 640 
570 PRINT Di ;"READ ';F1Ì;',R';R 
580 INPUT Bi 

590 PRINT Di 

600 HTAB 10: INVERSE : PRINT R;: NORMAL :NL = NL 4 1 

610 HTAB 20: PRINT Bi: PRINT : IF NL ( 10 THEN 560 

620 VTAB 23: HTAB 10: PRINT '(SPA210) per proseguire : 

GET XXi: IF XXi < ) CHRi (32) THEN 620 
630 PRINT XXi: GOTO 550 
640 PRINT Dij'CLÓSE' 

650 VTAB 23: HTAB 10: CALL - 868: INPUT 'N. ricetta, (M)e 
nu', (R)icette: poi premi (RETURN) —> ':RICi 
660 IF RI Ci = 'M' ÒR RICi = V THEN PRINT Dij'CLÓSE': HOME 
: GOTO 280 

670 IF RICi = 'R' OR RICi = V THEN HOME : GOTO 420 
680 RIC = VAL (RICi): IF RIC ) M OR R1C ( 1 THEN 650 
690 REM 

700 REM 

710 REM ***************************************** 

720 REM ***** ***** 

730 REM ***** mostra la ricetta prescelta ***** 

740 REM ***** ***** 

750 REM ***********<«*****«**************<******* 

760 REM 

770 REM 

780 PRINT Di;'OPEN ';F1Ì;',L80' 

790 PRINT Di ;'READ ';F1Ì;',R';RIC 

800 INPUT eii 

810 PRINT Dij'QPEN ';F2Ì;',L80' 

820 FOR I = 0 TO 16 

830 PRINT Di ;'READ ';F2Ì;',R';17 * (RIC - 1) 4 I 4 1 

840 INPUT B2i(l) 

850 NEXT 1 
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Cucina 

d’autore 


860 PRINT D*:"CL0SE" 

870 HOME : VTAB 1: PRINT *********** - ; 

SPC( 5);F*(YX); SPC(5 );'*********** 

880 VTAB 3: HTAB 30: IWERSE : PRINT Bit: NORMAL 

890 V/TAB 5: FOR I = 0 T0 4: HTAB 5 

900 PRINT B2*(I): NEXT I 

910 VTAB 10; FOR I = 5 TO 16: HTAB 5 

920 PRINT B2M1): NEXT I 

930 ^AB 23: CALL * 868: HTAB 10: INPUT "Vuoi stampare (S 

/N) —> 

940 1F XX* < I ’S* AND XX» < > V AND XX» < > *N‘ WD 

XX» < > V THEN 930 

950 1F XX» = ‘S’ OR XX» = V THEN HOME : GOSUB 1050 

960 V/TAB 23; CALL - 868: HTAB 10: INPUT "<R> per le ricet 

te, <M> per il menu — > " 

970 IF XX$ < ) "M“ AND XX* < > "m" AND XX* < > "R" MD 

XX* < ) "r" THEN 960 
980 PRINT XX*: PRINT D*;"CLOSE": HOME 
990 IF XX* = "M" OR XX* = "m" THEN 140 
1000 R1C* = "R": GOTO 420 
1010 REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

PRINT CHR* (27); CHR* (17) 

PRINT D*;"PR#1 ": PRINT : PRINT : PRINT ■#********«"; S 
5):F*(YX): SPC( 5 )\************ 

1120 PRINT : PRINT : PRINT TAB( 30);B1* 

1130 PRINT : PRU4T : FOR 1 = 0 TO 4: HTAB 5: PRINT B2*<1): 
NEXT I 

1140 PRINT : PRINT : FOR I = 5 TO 16: HTAB 5: PRINT B2*(I) 

: NEXT 1 

1150 PRINT D*;"PR#3": PRINT HOME : RETURN 
1160 REM #****#*}hhhhhhhhhhhhhhhhhhhhhhhhw 
1170 REM ***** segnalazione errore ***** 

1180 REM ********************************* 

1190 ER = PEEK (222):EL = PEEK (219) * 256 ♦ PEEK (218) 
1200 HOME : VTAB 10: PRINT "ERRORE # ";ER;" alla linea "; 
EL: PRINT : END 


1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 


**************************** 
***** ***** 

***** routine stampa ***** 
***** ***** 

**************************** 


APPLICANDO è lieto di offrire ai suoi lettori, nel 
dischetto che contiene il programma Computer 
cuisine" (in vendita a 30 mila lire), le ricette originali 
che compongono un intero menù di IO piatti studia¬ 
to appositamente da Gualtiero Marchesi. 


"Non ripetizione ma invenzione, non schema facile ma 
ricerca di originali modalità espressive. Non modesta ma 
raffinata, sembra complessa ed è classicamente semplice; 
non risulta di facile comprensione, ma stimola impulsi di 
fantasiosa intellettualità gastronomica". Così viene defini¬ 
ta la cucina di Gualtiero Marchesi. Più che di cucina si 
dovrebbe parlare di arte, riconosciuta dai critici più esi¬ 
genti nota ai buongustai di mezza Europa. Quando si 
parla di Gualtiero Marchesi subito vengono alla mente 
nomi come Escoffier, Alì-Bab, Point, sopra i cui sacri 
testi questo cuoco da molti definito "divino", ma sempre 
gentile e modesto con chiunque l’avvicini, ha affinato la 
jtia arte, dopo lunghi e ripetuti tirocini alla corte dei 
■rateili Jean e Pierre Troisgros, nell’altro grande tempio 
jfcjja "nouvelie cuisine", a Roanne, in Francia. 

■■ suo ristorante, a Milano, via Bonvesin de la Riva 2, è 
■roq&ntato da palati raffinati: uomini d’affari che non 
B^ono l’occasione, in un viaggio a Milano, di fare una 
Risiti? a questo sacrario dell’arte culinaria che è il Risto- 
di Gualtiero Marchesi, con la erre maiuscola per 
. d|(Vn}piasia, e poi habitué delle più diverse estrazioni: 
nolmta. cinema, cultura. 

Due stelle gli ha appuntato sulla porta la guida Miche- 
lin, 18/20 gli hanno attribuito Cault-Pillau, mentre il 
"Time" lo ha elencato tra i 15 ristoranti migliori del mon¬ 
do. 

Ma Gualtiero Marchesi non è solo questo la sua curiosi¬ 
tà, la sua passione, la sua "voglia di fare" non Io lasciano 
tranquillo un momento e così, negli intervalli tra la crea¬ 
zione di un piatto e l’altro, ha "cucinato" una serie di idee 
per raggiungere un pubblico ben più vasto di quello che 
ogni sera si riunisce nel suo Ristorante. Tra queste, l’olio 
ligure, dai sapori molto morbidi e con un vago retrogusto 
di pinoli, e l’aceto di vino rosso, fatto con un taglio di vini 
dell’Oltrepò che testimoniano ancora la loro presenza con 
le vivaci sfumature del profumo e il cui sapore evidenzia 
una struttura equilibrata da ben quattro anni di invec¬ 
chiamento, e permette accostamenti anche a piatti impor¬ 
tanti. Insieme con altre "Idee" di Gualtiero Marchesi (l’a¬ 
ceto di vino bianco, la China, l’Amaro, l’Amaro di noci, il 
Cordiale, il Rosolio) si trovano in vendita nei migliori 
negozi. 


^’ceto v) c 


VERGINI DI oUVA ] 
LIGURE 


^iSRodMAH' 1 


ÌJ Wlfltt(ì MARCHE 
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1460 PRINT 0; CHR$ (13) 

1470 PRINT D*;"CLOSE" 

1480 RETURN 
1490 REM 

1500 REM ******«*********«m********************** 
1510 REM ***** subroutine di ricerca del file ***** 
f520 REM ******************************************** 
1530 REM 

1540 VTAB 7: HTAB 1 : CALL - 958: VTAB 9 
1550 KTAB 25: PRINT ****** ":F$(NY);" ****** 

1560 PRINT : PRINT TAB( 10);‘Scegli tra le possibili oper 
azioni di inserimento :" 

1570 PRINT : HTAB 15: 1WERSE : PRINT "1";: NORMAL : PRINT 
1 nome della nuova ricetta" 

1580 PRINT : KTAB 15: IWERSE : PRINT "2";: NORMAL : PRINT 
* ingredienti" 

1590 PRINT : HTAB 15: 1WERSE : PRINT "3";: NORMAL : PRINT 
" modo di esecuzione" 

1600 VTAB 23: HTAB 10: INPUT "Quale — ) ":fW 
1610 NN = VAL (MS») s IF M4 < 1 OR MM > 3 THEN 1600 
1620 VTAB 9: HTAB 1: CALL - 958 
1630 IF M>l = 1 THEN LL = 4Q:FI* = "ELENCO" ♦ NY$: RETURN 
1640 LL = 70:FI$ = "RICETTE" ♦ NY*: IF M4 = 2 THEN SS = 4: 
RETURN 


1650 SS = 11 : RETURN 
1660 REM 

1670 REM m*********##«*********m**«*************** 
*********** 

1680 REM ***** subroutine di ricerca numero records inse 
riti ***** 

1690 REM «***m*m************m«****************** 
*********** 

1700 REM 

1710 PRINT Mj'OPEN ";F1$;',L80" 

1720 PRINT D$;"READ ';FI$;\R0‘ 

1730 INPUT M 
1740 PRINT D$ 

1750 RETURN 

1760 VTAB 23: HTAB 20: CALL - 868: INPUT "Quale scegli - 
> " ;VN$: RETURN 
1770 REM 

1780 REM m#**m***#******#******###**** 

1790 REM ***** segnalazione errore ***** 

1800 REM *«««»****««**«««***««***«*******« 

1810 ER = PEEK (222)sEL = PEEK (219) * 256 ♦ PEEK (218) 
1820 HOME : VTAB 10: PRINT "ERRORE « ";ER;‘ alla linea "; 
EL: PRINT : END 


nelle successive 12 righe (sempre di 70 
caratteri). 

Tutto ciò viene effettuato conside¬ 
rando le righe sul video come stringhe 
di caratteri, memorizzate in preceden¬ 
za in due file ad accesso diretto. Un 
primo file contiene l’elenco delle ricet¬ 
te appartenenti a un medesimo grup¬ 
po, e il secondo contiene le relative 
righe con ingredienti ed esecuzione. 

È bene ricordare che durante l’inse- 
rimento non si possono utilizzare i ca¬ 
ratteri virgola, punto e virgola, e, na¬ 
turalmente, virgolette. Per correggere 
una riga in cui sia presente un errore, 
va utilizzato il carattere speciale chioc¬ 
ciola, che riporta il cursore all’inizio 
della riga stessa, permettendo di ribat¬ 
tere così in modo esatto. È sufficiente 
poi premere RETURN per terminare 
i’inserimento. 

Programma 
di inserimento 

100-130. Le prime righe del pro¬ 
gramma introducono alcune costanti, 
quali il CTRL-D (per i comandi DOS) 
e l’elenco dei sottogruppi di ricette. 

140-390. Menù principale. Le op¬ 
zioni prevedono (1) la creazione di un 
nuovo archivio (necessaria quando si 
usa il programma per la prima volta), 
(2) Pìnserimento di nuove ricette e (3) 
il ritorno al programma HELLO. 

400-620. Quando si sceglie l’opzio¬ 
ne 1 al punto precedente, si suppone 
che non esista già sul dischetto un ar¬ 
chivio di ricette del tipo che si vuole 
creare, altrimenti questo verrebbe 
cancellato. Il programma avverte di 


questo pericolo, ma in caso di dubbio è 
bene interrompere l’esecuzione (ba¬ 
sterà premere N alla richiesta di prose¬ 
guimento) e controllare con un CA- 
TALOG il contenuto del disco su cui si 
sta lavorando. Il programma indica 
quali sono i file che bisogna ricercare. 
D’altronde, una volta create le 6 cop¬ 
pie di file (una per ciascun gruppo di 
ricette) si può eliminare questa opzio¬ 
ne cancellando la riga 280 e modifican¬ 
do così la riga 320: 

320 IF YN$ >< "2" AND YN$>< "3" 
THEN 310 

630-1010. Quando si sceglie l’opzio¬ 
ne 2, oppure quando si è compiuta fino 
in fondo l’opzione 1, appare sullo 
schermo un altro menù, che propone 
tre possibilità di inserimento, relative 
al titolo, agli ingredienti e al modo di 
esecuzione della medesima ricetta. Le 
tre opzioni vanno eseguite in sequenza 
come vengono presentate, per evitare 
pasticci irreparabili nella memoria, 
ma possono essere interrotte in qual¬ 
siasi momento premendo M; si torna 
in questo modo al menù principale 
(questa soluzione può venire assai co¬ 
moda quando si fanno le ore piccole 
davanti allo schermo e ci si vuole con¬ 
cedere una pausa). 

Programma 
di consultazione 

100-130. Costanti e stringhe alfanu¬ 
meriche. 

140-370. Menù principale. Sono 
presenti 6 opzioni relative alla consul¬ 
tazione dell’archivio memorizzato 
(una per ciascun gruppo di ricette). 


una opzione (7) che permette di trasfe¬ 
rirsi sotto il controllo del programma 
RICETTE, e infine l’opzione (8) che 
interrompe il programma. 

380-680. Quando viene scelta una 
delle prime sei opzioni, il programma 
legge sul file che contiene i nomi delle 
ricette (ADRIx), visualizza l’elenco 
delle medesime e chiede infine di sce¬ 
gliere quella che si vuole consultare 
(oppure rimanda al menù principale o 
a un riesame dell’elenco). 

690-1000. Quando si sceglie una del¬ 
le ricette presentate dallo schermo, il 
programma torna a leggere (su MAM- 
MAx) le righe relative agli ingredienti 
e al modo di esecuzione, presentando 
l’intera ricetta sul video. La lettura av¬ 
viene su file ad accesso diretto e quindi 
il puntamento è veloce e soprattutto 
indipendente dalla posizione della ri¬ 
cetta in memoria. A questo punto il 
programma (dopo aver eventualmen¬ 
te stampato la ricetta scelta) attende la 
battitura di una M per tornare al menù 
principale, o di una R per visualizzare 
di nuovo l’elenco delle ricette del 
gruppo che si sta analizzando. Natu¬ 
ralmente entrambi i programmi sono 
protetti in ogni loro parte da input in¬ 
desiderati, ed è comunque presente 
una routine di errore che ferma il pro¬ 
gramma segnalando il codice DOS e la 
linea alla quale è avvenuta l’interru¬ 
zione. 

Franco Persuati 


Questo programma è disponibile su di¬ 
schetto. L’elenco, i prezzi e ie modalità 
d’ordine di questo e degli altri dischetti 
disponibili sono riportati nella rubrica 
Disk Service. 




STAMPANTI Epson, 

una scelta prestigiosa, senza compromessi 



FX-BD 

Indispensabile nelle applicazioni in 
cui la versatilità e la qualità di stampa 
sono un imperativo. 

Possibilità di creare qualsiasi carat¬ 
tere su una matrice di 11x9 punti. Memo¬ 
ria RAM da 4 Kbyte. 256 tipi di caratteri 
definibili dall’utente. 136 tipi di caratteri 
a corredo. Alta velocità di stampa a 160 
caratteri al secondo su 80 colonne. Ben 
9 modi di stampa grafica punto a punto 
selezionabili sulla stessa riga contem¬ 
poraneamente. 

Inseritori automatici di fogli singoli a sin¬ 
gola e doppia vaschetta. 


FX— 

Con 132 colonne e 160 ca 
ratteri al secondo, la FX-100 
è la stampante ideale per 
data processing e tabula¬ 
ti, specialmente in uffi¬ 
cio grazie anche alla 
possibilità di accettare 
fogli singoli e moduli 
continui di qualsiasi 
formato. La matrice di puli¬ 
ti 11x9 consente prestazioni 
fiche e la formazione di una grandi] 
sima varietà di tipi di carattere, fino a 
256, definibili anche dall’utente e me¬ 
morizzati nei 3 kbyte di RAM interna. La 
FX-100 non teme la fatica: la testina di 
stampa è garantita per oltre 100 milioni 
di caratteri ed è facilmente sostituibile. 
Inseritori automatici di fogli singoli. 


Scegliere una 
stampante è facile? 

C’è una sola regola, pretendere 
sempre il massimo delle prestazioni, 
senza compromessi: materiali e compo¬ 
nenti di prima qualità, disegno elegan¬ 
te, grande affidabilità, robustezza, faci¬ 
lità e flessibilità d'impiego, prezzo ade¬ 
guato e la garanzia di un grande costrut¬ 
tore leader mondiale. 

Così, con Epson, la scelta è facile e 
sicura. 

Epson il più grande costruttore al mon¬ 
do di stampanti vi offre una gamma di 
prodotti prestigiosi che soddisfano ogni 
vostra necessità. Epson, una soluzione 
raffinata, in esclusiva per il vostro com¬ 
puter. 



RX-BO/RX-IOD 

Le migliori prestazioni da stampanti, 
semplici, versatili, silenziose e veloci 
con 100 caratteri al secondo. 128 tipi di 
caratteri selezionabili e 11 set interna¬ 
zionali. 80 o 132 colonne. 6 diverse posi- 
bilità grafiche. Tutti i tipi di carta, modu¬ 
lo continuo, foglio singolo. Inseritori au¬ 
tomatici di fogli singoli. 



Epson dunque, senza compromessi. 


EPSON 


EPSON CORPORATION 

HEAD OFFICE: 

80 Hirooka. Shiojiri-shi. Nag-am 
399-07 JAPAN 


EPSON, computer e periferiche 
sono prodotti distribuiti, 
assistiti e garantiti 
da SEGI S.d.A. - Milano Via Timavo, 12 


segi 


SERVIZI 

GENERALI PER 
L INFORMATICA 


studio' martinetti 






PER IL TUO APPLE // 


Vi piacciono le regate? O preferite esplorare le caverne dell’Olimpo? Oppure vorreste 
avere sul vostro schermo il fantastico gioco della scimmia che scappa arrampicandosi sulle 
pareti lisce di un grattacielo? Siete invece tipi riflessivi e vi dilettate di musica? Non 
preoccupatevi, qui c’è sicuramente quello che fa per voi. Per gli amanti di tanti giochi tutti 
insieme è disponibile una raccolta. Per chi, infine, vuole migliorare le proprie capacità di 
programmatore, ecco tutti i trucchi del Basic su dischetto. E a prezzi eccezionali. 





REGATTA. Un gioco entusiasmante che tara 
impazzire marinai esperti e meno esperti di 
qualunque età. Ogni concorrente ha a 
disposizione una barca e un circuito. Poi ci 
sono i venti, gli ostacoli, gli imprevisti... Una 
grafica realistica vi farà volare tra le onde. 
Paddle o Joystick opzionali. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


CAVES OF OLYMPUS. Oltre a una grafica a 
colori ultraprofessionale, questo gioco di 
abilità sfodera suoni ed effetti speciali di 
qualità nettamente superiore. Divertente, 
intrigante e irresistibile. Non richiede né 
paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


APE ESCAPE. Una scimmia è fuggita dallo 
zoo e si arrampica sulle finestre di un 
grattacielo. Elicotteri le ronzano attorno e il 
guardiano dello zoo la insegue. Riuscirà a 
raggiungere il tetto e la libertà? Tutto dipende 
da quanto abili siete. Grafica a colori. Non 
richiede né paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 liFe. 







MUSIC GAMES. 12 programmi educativi e 
divertenti sul filo delle 7 note. Senza bisogno 
d’altro, il vostro Apple si tramuterà in un 
docile strumento musicale dal quale 
imparare e col quale divertirsi. Sono richieste 
le paddle o il joystick. Dischetto con 
programma e manuale in elegante 
confezione asole 40.000 lire. 


APPLE GAMES. 11 giochi: Flip-Flop, 
Mastermind, Towers, Sherlock’s home, 
Attack of thè Zargons, Phaser Practice, 
Acey-Ducey, Big government, Tic-Tac-Toe, 
Qubic, Depth charge. E tre programmi di 
utilità: Shape table generator, Opening 
ceremonies, Master catalog. Per alcuni 
giochi sono richieste le paddle o il joystick. 
Dischetto con programma e manuale in 
elegante confezione a 50.000 lire. 


BASIC TRICKS FOR THE APPLE. 35 routine 
che renderanno molto più professionali i 
vostri programmi in Basic e che vi sarà 
facilissimo imparare utilizzando il manuale e 
il dischetto offerti in elegante confezione a 
sole 50.000 lire. 


Cognome e nome. 

Via.N. 

Cap.Città .Provincia. 

Scelgo la seguente formula di pagamento: 

□ Allego assegno non trasferibile di lire.intestato a Editronica srl, 

Corso Monforte 39, 20122 Milano 

□ Allego ricevuta di versamento di lire .sul conto corrente postale 

n. 19740208, intestato a Editronica srl, Corso Monforte 39, 20122 Milano 


Sì! Inviatemi subito, senza aggravio di spese 
postali, il o i programmi contrassegnati con 
una crocetta. 

□ REGATTA. 40.000 lire. 

□ CAVES OF OLYMPUS. 40.000 lire. 

□ APE ESCAPE. 40.000 lire. 

□ MUSIC GAMES. 40.000 lire. 

□ APPLE GAMES. 50.000 lire. 

□ BASIC TRICKS FOR THE APPLE. 

50.000 lire. 


Data 


Firma 























































Diesel o benzina? Questo è il rovello. Se poi sarà 
bianca o rossa, a due, quattro o cinque porte, 
metallizzata o meno, si vedrà. Essenziale, 
prioritario, determinante è il motore. Come 
sceglierlo? Chiedendo agli amici, guardando i 
giornali, facendo testa o croce? O, meglio, 
affidandosi al giudizio del computer? 


DOS 3.3 

filili 

ProDOS 

4im 

APPLE .//e 

filili 

\mi£ //c; 

4hiii 


Metti un dubbio 
nel motore 



Q uello che taglia la testa al toro di 
solito è il superbollo: se fai tot 
chilometri all’anno lo ammortizzi, se 
no non conviene. I patiti dell’argo¬ 
mento, comunque, non si accontenta¬ 
no di quest’unico criterio e, senza sco¬ 
raggiarsi, con conteggi tanto comples¬ 
si quanto approssimati, insistono nel 
reclamizzare il motore a gasolio o 
quello a benzina. Nascono così discus¬ 
sioni snervanti tra sostenitori dei due 
opposti partiti: si sottolinea da un lato 


la robustezza, si evidenzia dall’altro ia 
lentezza, si loda la minor tossicità, si 
lamenta la puzza... 

Pregi e difetti da una parte e dall’al¬ 
tra, rischi e convenienze: cosa sce¬ 
gliere? 

Al di là delle simpatie personali ed 
evitando confronti sulle prestazioni, 
un criterio c’è: quello, al quale tutti 
sono in fondo sensibili, dei costi reali. 

A determinare il costo di un’auto¬ 
mobile concorrono molti fattori: prez¬ 


zo di acquisto, bollo e assicurazione, 
tipo di carburante e suo costo, consu¬ 
mi, chilometraggio annuo, tempo di 
vita... È necessario confrontare tutte 
queste variabili, e il loro reciproco in¬ 
fluenzarsi, per poter valutare l’econo¬ 
micità di una vettura rispetto a un’al¬ 
tra e, in particolare, di una con motore 
diesel rispetto a un’altra con motore a 
benzina. 

Non occorre però aspettare di avere 
un sabato libero per imbarcarsi in un 
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HB 




listato del Droeramma 

10 

REM 

********************** 

20 

REM 

# DIESEL * 

30 

REM 

* 0 * 

40 

REM 

* BENZINA * 

50 

REM 

* (C) COPYRIGHT 1985 * 

60 

REM 

* BY APPLICANDO * 

70 

REM 

********************** 

80 

CALL 

- 936 



mare di conti, basta usare un program¬ 
ma semplice semplice e preciso preci¬ 
so: "diesel o benzina?". 

Come funziona 

Lo scopo del programma è quello di 
confrontare le caratteristiche di due 
automobili e di scegliere la più econo¬ 
mica, quantificando il risparmio che 
essa renderà possibile rispetto alla 
"concorrente". I calcoli, naturalmente, 
sono tutti affidati al computer, che li 
esegue con sorprendente rapidità; chi 
lo interroga deve semplicemente inse¬ 
rire diligentemente la serie di dati che 
via via gli vengono richiesti: costo 
d’acquisto, tassa di circolazione, assi¬ 
curazione eccetera. 

La sentenza del computer, a con¬ 
fronti fatti, è mirabilmente chiara ed 
esaustiva: ti conviene acquistare que¬ 
sta, perché negli anni in cui intendi 
usarla risparmierai tot milioni. Sem¬ 
pre che non riusciate a proporre al 
cervellone due alternative ugualmente 
convenienti! In questo caso apparirà 
una scritta un po’ spazientita ("tutto 
tempo buttato, diesel e benzina sono 
uguali") con cui il computer vi inviterà 
a risparmiargli inutili sforzi matemati¬ 
ci... 

Benito Notari 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 


90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

430 

420 

430 

440 

450 

460 

470 

480 

490 

500 
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520 
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540 

550 


PR1NT B D I E S E L“; : N0RMAL ; 
HTAB 24: PRINT "B E N 2 1 N A ?" 


HTAB 19: 
: N0RMAL 


PR3NT 


PRINT "(C) COPYRIGHT 1985 BY AP 


PRINT 1 . 

HTAB 4: FLASH 
"0*;: FLASH 
PRINT 

PRINT ". 

VTAB 22: HTAB 5: IWERSE 
PLICAND0': NORMAL 
VTAB 7: PRINT ’ QUESTO E' UN PROGRAM^ DI CONVENIENZA.": PRINT 
PRINT 1 IL SUO FIW2I0NAMENT0 E' BASATO, SULLA": PRINT 
PRINT " SCELTA TRA L'ACQUISTO DI UN'AITTOMOBILE" : PRINT 
PRINT " CON MOTORE DIESEL 0 BENZINA. L'AUTO IL": PRINT 
PRINT 1 CUI COSTO TOTALE SARA' MINIMO RISULTE-": PRINT 
PRINT " RA' ESSERE L'AUTO PIU' CONVENIENTE.": PRINT : PRINT 
PRINT TAB< 7);"BATTI <RETURN> PER INIZIARE": PRINT 
VTAB 20: HTAB 35: GET A»: PRINT A$ 

IF A* < > CHR* (13) THEN 210 
IF A$ = CHR$ (13) THEN CALL - 936 
PRINT TAB( 9);"A U T 0-D I E S E L": PRINT 
PRINT "****************************************" 

HTAB 3: INPUT 
PRINT : PRINT 
HTAB 3: INPUT 
PRINT : PRINT 
HTAB 3: INPUT 
PRINT : PRINT 
HTAB 3: INPU 

PRINT B - 

CALL - 936 
PRINT TAB( 


PRINT : PRINT 


PRINT 


PRINT 

INPUT 

PRINT 

936 


"COSTO D'ACQUISTO 

" ;AD 

;tassa di circolazione 

" ;CD 

"ASSICURAZIONE ANNUALE 

" ;DD 

•consumo kh/l 

-,ED , 

>;"A U T 0-B ENZIMA" 

: PRINT 

i********************************* - 

"COSTO D'ACQUISTO 

a 

" ;AB 

"TASSA DI CIRCOLAZIONE 
■ 

" ; CB 

"ASSICURAZIONE ANNUALE 

a 

8 ;DB 

"CONSUMO KM/L 

a 

" ;EB 

)):"DEV1 INSERIRE ANCHE": 

PRINT 


PRINT 
HTAB 3: 

PRINT 
HTAB 3: 

PRINT 
CALL 
PRINT 

PRINT "****************************************" 

HTAB 3: INPUT "COSTO DEL GASOLIO AL LITRO ";LD 

PRINT .-.---" 

INPUT "COSTO DELLA BENZIM AL LITRO " ;LB 

PRINT "---" 

INPUT "QUANTI CHILOMETRI PERCORRI IN UN ANNO ? ";K 


HTAB 3: 

PRINT : 

HTAB 1: 

PRINT " 

HTAB 1: 

PRINT " 

560 TD = (LD / ED * 
570 TB = (LB / EB * 
580 IF TD > TB THEN 
590 IF TB ) TD THEN 
600 IF TD = TB THEN 
610 RB = 

620 RD = 


INPUT "QUANTI ANNI PENSI DI UTILIZZARLA ? ";T 


630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 


K 4 CD + DD) * T 4 AD 

K 4 CB 4 DB) * T 4 ab 

GOTO 610 
GOTO 620 

CALL - 936: GOTO 740 
INT (TD - TB): CALL - 936: GOTO 630 

JNT (TB - TD): CALL - 936: GOTO 690 


PRINT "FATTI I CONTI TI CONVIENE ACQUISTARE": PRINT 
PRINT "L'AUTO A BENZINA, IN QUANTO NEGLI ANNI": PRINT 
PRINT "DI VITA DELLA TUA AUTO AI COSTI ATTUALI": PRINT 
PRINT "RISPETTO AL MODELLO A GASOLIO PUOI": PRINT 
PRINT "RISPARMIARE"; 

PRINT "LIRE ":: INVERSE : PRINT RB: NORMAL : GOTO 790 
PRINT "FATTI I CONTI TI CONVIENE ACQUISTARE": PRINT 
PRINT "L'AUTO DIESEL, IN QUANTO NEGLI ANNI DI": PRINT 
PRINT "VITA DELLA TUA AUTO RISPETTO AL MODELLO": PRINT 
PRINT "BENZINA PUOI RI SPAZIARE’ ; 

PRINT " LIRE INVERSE : PRINT RD: NORMAL 
PRINT 
PRINT 
PRINT 
PRINT 


GOTO 790 


TAB( 5);"*TUTT0 TEMPO BUTTATO I PREZZI*": PRINT 
TAB( 5);"*D1ESEL E BENZINA SONO UGUALI*": PRINT 


GOTO 790 

VTAB 20: HTAB 8: INPUT "VUOI CONTINUARE (S/N) ? 
IF 0* < ) "S" AND 0$ < > "N" THEN 790 
IF 0* = CHR-i (83) THEN CALL - 936: GOTO 240 
CALL - 936: END 


: 0 * 
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CONTABILITÀ... 

IL PROBLEMA 
È SUPERATO 



La cometa ha 

realizzato i 
programmi più 
aggiornati e 
completi di 
contabilità generale e semplificata, 
programmati dai più affermati specia¬ 
listi del settore. 

Telefonateci o scriveteci siamo a 
vostra disposizione per aiutarvi a 
risolvere il vostro problema. 


COMETA s.n.c. 

20154 MILANO 

Via Melzi d’Eril 38 - Tel. 5464468 -3185007-3493785 















Vi piacerebbe avere un repertorio di suoni e rumori oos 3.3 
d’ogni genere? Questo programma usa lo schermo Sple S //*|hh 
grafico Hi-Res per creare effetti sonori 0 semplici appiè //* 4«h 

<$y melodie. A centinaia. E subito pronte su dischetto. 



suon di Apple 


E noto che l’Apple è in grado di 
produrre una gran varietà di suo¬ 
ni e di effetti sonori. Tuttavia se si 
programma in Applesoft, è probabile 
che non si riesca a produrre molto di 
più di semplici bip e ronzii. Chi deside¬ 
ra ravvivare i propri programmi ag¬ 
giungendovi musica o effetti sonori 
adesso può farlo. Il SINTETIZZA¬ 
TORE DI SUONI permette di creare 
e salvare con facilità suoni che vanno 
da un intero spartito musicale a esplo¬ 
sioni, raffiche di mitragliatrice e perfi¬ 
no canti di uccelli. In altre parole è un 
sistema illimitato di creazione di suo¬ 
ni, e qualsiasi suono creato può essere 
riprodotto prelevandolo da un pro¬ 
gramma in Applesoft con un solo co¬ 
mando. 

Come usare 
il programma 

Il SINTETIZZATORE produce 
una rappresentazione in alta risoluzio¬ 
ne del suono mentre viene creato. In 
questo display la parte alta dello scher¬ 
mo rappresenta i suoni più alti, la par¬ 
te bassa rappresenta i suoni più bassi. 
Quando viene riprodotto, il suono è 
letto da sinistra a destra. Il programma 
ha due modi di creazione dei suoni. Il 
primo serve per fare ogni varietà di 
effetti sonori, il secondo per sintetiz¬ 
zare la musica. 

Per usare il programma basta batte¬ 
re RUN SINTETIZZATORE. Sul 
menù introduttivo scegliete dapprima 
Istruzioni, dato che queste compren¬ 
dono dimostrazioni di alcuni degli ef¬ 
fetti più semplici che è possibile otte¬ 
nere con questo programma. Quando 
viene visualizzato di nuovo il menù 
introduttivo, scegliete Iniziare una 
nuova tavola dei suoni, e alla richiesta 
introducete qualsiasi nome di file vali¬ 
do per la propria Tavola dei suoni. Lo 


schermo Hi—Res si pulirà, e dopo una 
breve pausa apparirà sulla sinistra del¬ 
lo schermo il cursore. Adesso si può 
cominciare a creare un suono. 

Si scoprirà che si può spostare il cur¬ 
sore in su di un dot con il tasto "I", di 


cinque dot con il tasto "U" e di venti¬ 
cinque dot con il tasto "Y". Analoga¬ 
mente si può spostare il cursore in giù 
di uno, cinque e venticinque dot ri¬ 
spettivamente con i tasti "M", "N" e 
"B". Il tasto "S" imposta l’altezza di un 
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singolo suono e fa avanzare il cursore 
di un dot verso destra. Volendo, la 
posizione verticale del cursore può es¬ 
sere controllata con una paddle o con 
un joystick, e usando la paddle il pul¬ 
sante svolge la funzione del tasto "S". 


Questa scelta può essere fatta da me¬ 
nù. 

Premendo la barra spaziatrice si fa 
avanzare il cursore e non si ha più 
alcun dot, e la conseguenza è una pau¬ 
sa quando il suono viene riprodotto. 


Le frecce destra e sinistra possono es¬ 
sere utilizzate per spostare il cursore a 
destra o a sinistra senza cambiare i dot 
dei singoli suoni esistenti. Il cursore 
può essere spostato anche premendo 
una sola volta uno qualsiasi dei tasti 
dei numeri. Ciascuno di essi rappre¬ 
senta una diversa posizione orizzonta¬ 
le sullo schermo, proporzionale alla 
sua posizione relativa sulla tastiera. 

Le altre opzioni nella creazione e 
nell’editing dei suoni sono SPOSTA¬ 
RE e MENU’. SPOSTARE sarà spie¬ 
gata più avanti. Premendo RETURN 
si ottiene il menù principale. 

Le opzioni del menù 

Il menù principale ha sette opzioni, 
come mostra la figura 1. La prima di 
esse, PROVARE IL SUONO, per¬ 
mette di sentire il suono che si è pro¬ 
gettato. Nell’ambito di questa opzione 
si possono scegliere l’altezza totale del 
suono, il numero delle ripetizioni e la 
lunghezza di ciascun suono singolo. 
Ritoccando questi parametri, uno 
schema sonoro può essere suonato in 
centinaia di modi diversi. Se siete sod¬ 
disfatti del suono, scrivete l’istruzione 
CALL che è visualizzata a questo pun¬ 
to (figura 2); questa è l’istruzione che 
si userà per richiamare il suono dall’in¬ 
terno di un programma in Applesoft. 
Poi tornate al menù e usate l’opzione 
SALVARE IL SUONO, che salverà 
l’intera tavola dei suoni quale è ades¬ 
so, con il nome di file specificato pri¬ 
ma. 

Se non siete del tutto soddisfatti, 
potete CANCELLARE IL SUONO 
pulendo lo schermo in modo che si 
possa cominciare da capo. Questa op¬ 
zione, però, non cancella il file su di¬ 
schetto se lo si è salvato. Si può anche 
usare l’opzione AGGIUNGERE AL 
SUONO, che fa tornare alla creazione 
e all’editing del suono. 

Le altre possibilità offerte dal menù 
sono VISUALIZZA SUONO 
CREATO IN PRECEDENZA, FI¬ 
NE e CAMBIARE MODO. L’opzio¬ 
ne VISUALIZZA permette di richia¬ 
mare ed esaminare qualsiasi altrosuo- 
no della propria tavola dei suoni. Se 
per esempio abbiamo nove suoni nella 
tavola, questo permette per ognuno di 
essi di aggiungere, cambiare, provare 
o cancellare, e di risalvare poi la tavola 
se si vuol rendere permanente una 
qualsiasi modifica. 

FINE permette di lasciare il pro¬ 
gramma. Dopo averlo fatto si può, se 
si vuole, eseguire nuovamente il pro¬ 
gramma per lavorare a una tavola dei 
suoni o per cominciarne una nuova. 


Figura 1. 

Menù 

principale: 

1 - Prova 

il suono, 

2 - Salva 

il suono, 

3 - Aggiungi 

il suono, 

4 - Grafico 

del suono, 

5 - Cancella 

il suono, 

6 - Cambia 

il suono, 

7 - Fine 






CAMBIARE MODO presenta due 
opzioni. Una permette di scegliere fra 
l’introduzione da tastiera e l’introdu¬ 
zione da paddle per fissare l’altezza 
del suono. L’altra permette di sceglie¬ 
re fra sintesi del suono e sintesi musi¬ 
cale. 

Sintesi musicale 

Nel modo sintesi musicale si note¬ 
ranno certi cambiamenti nello sposta¬ 
mento verticale del cursore. In questo 
modo invece di avere l’intero arco del¬ 
le altezze del suono si è limitati alle 
quattordici note musicali specifiche vi¬ 
sibili nella figura 3. 

Sullo schermo Hi-Res viene forni¬ 
to un pentagramma perché si possano 
distinguere le note. Per usare questo 
modo con la massima efficacia è bene 


avere a portata di mano un semplice 
foglio di musica. Si osservi che ci sono 
note sia sulle righe del pentagramma 
sia fra le righe. Si scoprirà che il curso¬ 
re avrà una posizione verticale corri¬ 
spondente a ciascuna di queste note. 
Per amor di chiarezza e di facilità d’u¬ 
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0300- 

20 

4C 

E7 

86 

06 

20 

4C 

E7 

03Q8- 

86 

07 

20 

4C 

E7 

86 

08 

20 

0310- 

4C 

E? 

86 

09 

A0 

67 

88 

C8 

0318- 

C6 

06 

DO 

FB 

8C 

24 

03 

8C 

0320- 

3F 

03 

AE 

00 

66 

86 

1C 

A0 

0328- 

00 

88 

88 

88 

C6 

07 

DO 

F? 

0330- 

8C 

61 

03 

A0 

01 

A6 

1C 

86 

0338- 

1B 

A5 

0? 

85 

1A 

BE 

00 

66 

0340- 

E8 

CA 

F0 

18 

AD 

30 

CO 

4C 

0348- 

4A 

03 

4C 

4D 

03 

4C 

50 

03 

0350- 

4C 

53 

03 

4C 

56 

03 

4C 

59 

0358- 

03 

4C 

5C 

03 

4C 

5F 

03 

CA 

0360- 

DO 

F7 

06 

1A 

DO 

D7 

C8 

C6 

03Ó8- 

1B 

DO 

CE 

C6 

08 

DO 

C4 

60 


so questo modo non comprende i die¬ 
sis e i bemolle. Mettendo i dot dei 
singoli suoni nelle stesse posizioni che 
hanno le note della melodia sullo spar¬ 
tito si potrà duplicare la musica. Si 
deve però tener presente che data la 
maniera in cui funziona il Lettore di 
suoni, le note alte suonano più veloce¬ 
mente delle note basse. 

In pratica il suono del do più alto è 
circa tre volte più veloce di quello del 
re più basso. Per compensare questo 
fatto si devono fare le linee di nota per 
le note alte più lunghe di quelle per le 
note basse. Per le note di lunghezza 
media la figura 3 suggerisce il numero 
dei dot di suono singolo da usare per 
ciascuna nota (cioè nove dot di suono 
singolo per un do alto). Si ricordi che 
in musica non è previsto che le note 
abbiano tutte la stessa durata, e quindi 


Listato 1: LETTORE. SUONO 






0327: 


49 * TONO 

PIU' 

ALTO 





0327:A0 

00 

50 

LDY 

#$00 

SOURCE FILE: LETTORE SUONO 


0329:88 


51 CHBR 

DEY 


0000 

1 ******************************* 

032A: 88 


52 

DEY 


0000 

2 * 

LETTORE.SUONO * 

032B:88 


53 

DEY 


0000 

3 « BY JAMES R. GESCHUENDER * 

032C:C6 

07 

54 

DEC 

OPITCH 

0000 

4 * 

COPYRIGHT (0 1985 * 

032E:D0 

F9 

55 

BNE 

CHBR 

0000 

5 « 

BY APPL1CANDO 4 * 

0330:8C 

61 03 

56 

STY 

$0361 

0000 

6 * 

MICROSPARC. INC. * 

ASSEMBLER: DOS TOOL KIT * 

0333: 


57 * 



0000 

7 * 

0333: 


58 * LOOP 

SUONO 


0000 

8 ******************************* 

0333: 


59 * 




• NEXT OBJECT FILE NANE IS LETTORE.SUONO.OBJ 

0333:A0 

01 

60 REPEAT 

LDY 

#$01 

0300i 

i 9 

ORG 

$0300 

0335:A6 

1C 

61 

LDX 

TNUM 

0006; 

: 10 SNUM 

EQU 

$06 

0337:86 

1B 

62 

STX 

TNUM2 

00071 

i 11 OPITCH EQU 

$07 

0339:A5 

09 

63 NEXTPN 

LDA 

TLEN 

0008: 

: 12 REP 

EQU 

$08 

033B:85 

1A 

64 

STA 

TLEN2 

000?i 

i 13 TLEN 

EQU 

$09 

033D: 


65 * CARICA IN X LN NLMERO DEL TONO 

001C: 

; 14 TNUM 

EQU 

$1C 

033D: 


66 « DAL FILE SUONO 

0018: 

i 15 TNUM2 

EQU 

$1B 

033D:BE 

00 FF 

67 SAMEPN 

LDX 

STSOUND,Y 

001A : 

: 16 TLEN2 

EQU 

$1A 

0340:E8 


68 

INX 

FF00: 

i 17 STSOUND EQU 

$FFQ0 

0341:CA 


69 

DEX 


E74C 

: 18 COMBYTE EQU 

$E74C 

0342: 


70 * SE IL DEL TONO=0 OMETTO IL CLICK 

C030: 

: 19 SPKR 

EQU 

$C030 

0342:F0 

1B 

71 

BEQ 

DEC? IT 

0300 

: 20 * 



0344: 


72 * CLICK’ALTOPARLANTE 


0300: 



21 

* 

HtttGAZZIW IL NUMERO DEL SUONO 

0344:AD 30 CO 

73 

LDA SPKR 

0300:20 

4C 

E7 

22 


JSR COMBYTE 

0347: 

74 « PAUSA TRA I CLICK 

0303:86 

06 


23 


STX SNUM 

0347: 

75 * (PAUSA LUNGA= TONO BASSO) 

0305: 



24 

* 

IftWGAZZIM IL SUONO PIU' ACUTO 

0347:4C 4A 03 

76 

JMP J1 

0305:20 

4C 

E7 

25 


JSR COMBYTE 

034A:4C 4D 03 

77 J1 

JMP J2 

0308:86 

07 


26 


STX OPITCH 

034D :4C 50 03 

78 J2 

JMP J3 

030A: 



27 

* 

IRAGAZZINA IL NUMERO DELLE RIPETIZIONI 

0350:4C 53 03 

79 J3 

JMP J4 

030A: 20 

4C 

E7 

28 


JSR COMBYTE 

0353:4C 56 03 

80 J4 

JMP• J5 

0300:86 

08 


29 


STX REP 

0356:4C 59 03 

81 J5 

JMP J6 

030F: 



• 30 

* 

INttGAZZIM LA LUNGHEZZA DI CIASCUN TONO 

0359:4C 5C 03 

82 J6 

JMP J7 

030F:20 

4C 

E7 

31 


JSR COMBYTE 

035C:4C 5F 03 

83 J7 

JMP DECPIT 

0312:86 

09 


32 


STX TLEN 

035F:CA 

84 DECPIT 

DEX 

0314: 



33 

* 

CALCOLA IL BYTE ALTO DELL' 

0360: 

85 * SE XOO, PAUSA CONTINUA 

0314: 



34 

* 

INDIRIZZO DI PARTENZA 

0360:D0 FE 

86 BRANCH 

Bf4E BRANCH 

0314: 



35 

* 

DEL SUONO 

0362:C6 1A 

87 

DEC TLEN2 

0314:A0 

67 


36 


LDY #$67 

0364: 

88 * SE TLEN2O0, STESSO NUMERO ! 

0316:88 



37 


DEY 

0364:DO D7 

89 

BNE SAMEPN 

0317 :C8 



38 

INCADD INY 

0366:C8 

90 

INY 

0318 :C-6 

06 


39 


DEC SNUM 

0367:C6 1B 

91 

DEC TNUM2 

031A: DO 

FB 


40 


BNE INCADD 

0369: 

92 * SE TNUM2O0. NUMERO DI TONO 

031C : 



41 

* 

CORREGGE IffttGAZZINDENTO SUONO 

0369:DO CE 

93 

BNE NEXTPN 

031C:8C 

24 

03 

42 


STY $0324 

036B:C6 08 

94 

DEC REP 

031F:8C 

3F 

03 

43 


STY $033F 

036D: 

95 * SE REPOO, RIPETE IL SUONO 

0322: 



44 

* 

RICEVE LA LUNGHEZZA DEL SUONO DAL FILE SUONO 

036D: DO C4 

96 

BNE REPEAT 


0322:AE OD FF 45 LDX STSOUND 

0325:86 1C 46 STX TNUM 

0327: 47 * CALCOLA E CORREGGE IL 'SALTO' 


0327: 


48 * IN BASE AL VALORE DEL 


036F:6(r 


97 


RTS 


*** SUCCESSFUL ASSEMBLY: NO ERRORS 
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Figura 2. 
Parametri 
del suono: 
Altezza max 
(1-9)? 3. 
Numero 
ripetizioni 
(1-255)? 15. 
Lunghezza 
di ogni nota 
(1-255)? 1. 
Cali 

768,3,2,15,1. 




Figura 3. 
Grafico 
delle note 
e loro 
lunghezza. 


Figura 4. 
Grafico 
del suono 
di una 
pistola 
laser. 



non sarà il caso di usare questi valori 
per tutte le note. Tenendo presente 
questo fatto si potrà copiare diretta- 
mente la musica nella tavola dei suoni. 
Per un brano lungo si può, volendo, 
continuare su un’altra videata. Tutte 
le opzioni possono essere usate nel 
modo di sintesi musicale nella stessa 
maniera in cui sono state usate nel mo¬ 
do di sintesi del suono. 

L’opzione 
di spostamento 

C’è un’altra caratteristica di editing 
che è particolarmente utile nella sinte¬ 
si musicale, SPOSTARE. Per esem¬ 
pio, che cosa fare se si è introdotto un 
intero brano musicale, e provandolo si 
scopre che si è saltata una nota alll’ini- 
zio? A questo tipo di problema può 
porre rimedio l’opzione SPOSTARE. 
Non è un’opzione del menù. Vi si può 
accedere durante la creazione e l’edi¬ 
ting del suono. Usando i tasti dei nu¬ 
meri e delle frecce spostate il cursore 
sulla posizione orizzontale della nota 
mancante e premete ESC. A questo 
punto SPOSTARE permette di muo¬ 
vere più a destra tutti i dot che si trova¬ 
no alla destra del cursore, in modo che 
si possa inserire la nota mancante. Se 
si fosse aggiunta inavvertitamente una 
nota in eccesso si potrebbe usare SPO¬ 
STARE per muovere, in questo caso, 
verso sinistra gli stessi dot, oltre la no¬ 
ta sbagliata. SPOSTARE può essere 
usato anche se si vuole abbreviare o 
allungare una nota. 

Dopo aver fatto una qualunque cor¬ 
rezione, tornate al menù e provate 
nuovamente il suono. Osservate che il 
cursore è considerato dal LETTORE 
SUONO quale contrassegno di fine 
suono. Così, se quando si torna al me¬ 
nù si lascia il cursore nel mezzo del 
suono, si sentirà soltanto metà del suo¬ 
no quando lo si proverà. A questo si 
rimedia facilmente scegliendo l’opzio¬ 
ne 3 (AGGIUNGERE AL SUONO) 
e spostando il cursore alla fine del suo¬ 
no. 

Il salvataggio del suono permette di 
andare avanti e di lavorare al suono 
successivo da mettere nella tavola. 
Una tavola può contenere un massimo 
di 46 suoni, ognuno dei quali può esse¬ 
re suonato in centinaia di maniere di¬ 
verse. 

Gestione dell’errore 

Il programma è congegnato in modo 
che sia "amichevole per l’utente". Tut¬ 
te le opzioni di menù irreversibili ri¬ 


chiedono la verifica prima di essere 
effettuate. L’introduzione di uno 
SHIFT 0 permette di uscire dall’opzio¬ 
ne SPOSTARE. Inoltre sono general¬ 
mente ignorate le introduzioni illegali 
di tutti i tipi. 


Impiego 
dei suoni creati 

Dopo aver creato e salvato una ta¬ 
vola dei suoni li si può adoperare in 
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uno dei propri programmi in Apple¬ 
soft. Per farlo basta includere nel pro¬ 
prio programma le linee seguenti: 

BLOAD LETTORE SUONO 

e, 

BLOAD filesuoni 


Si può poi eseguire qualsiasi suono 
di quelli compresi nel proprio file dei 
suoni con il comando CALL registrato 
durante la prova del suono (per esem¬ 
pio CALL 768,1,3,5,10). 


La forma generale del comando è: 


CALL 768,n,p,r,l 


dove n è il numero del suono nella 
tavola e deve essere compreso fra 1 e 
46; p è rattezza complessiva del suono 
e deve essere compreso fra 1 e 9; r è il 
numero delle ripetizioni e 1 è la lun¬ 
ghezza di ciascun suono singolo: en¬ 
trambi devono essere compresi fra 1 e 
255. Le figure da 4 a 7 mostrano sol¬ 
tanto alcuni dei suoni che si possono 


creare (e i loro parametri). Questi suo¬ 
ni, con altri dieci, sono compresi nel 
dischetto che potete richiedere utiliz¬ 
zando il tagliando pubblicato nel Disk 
Service. 

Introduzione 
del programma 

Il programma è composto di due 
parti, il lettore di suono in linguaggio 
macchina e il programma principale in 


Listato 2: SINTETIZZATORE 


10 

REM 

*************************** 

20 

REM 

» 

SINTETIZZATORE 

* 

30 

REM 

« DI JAMES R. GESCHWENDER * 

40 

REM 

* 

COPYRIGHT (0 1984 

* 

50 

REM 

* 

BY APPLICAND0 & 

* 

60 

REM 

♦ 

MICROSPARC, INC. 

* 

70 

REM 

m************************ 

30 

REM 

INI 

Z1ALIZZAZI0NE *» GL! 

UTENTI 


90 

100 

110 

120 

130 

HO 

150 

160 


LINEA 1860 
IF PEEK (104) 

POKE 103,1 : POKE 104,64; rum. 


64 THEN 120 

POKE 16384.0 
"RUN'SINTETIZZATORE' 


PRINT Cito* (4); 

L0MEM: 37376 

DIM Q<14),Y(6).M$(2),11(2):D* = CHRt (4) 

PRINT D$r BLOAD LETTORE.SUONI* 

REM DATI PER LE NOTE MUSICALI 
F0R N = 0 T0 14: READ Q(N): NEXT : DATA 73,77,86,96,1 
08,116.128,144,152.171,192,213.230.254,0 
REM DATI PER LE RIGHE DELLA SCALA 
F0R N = 0 TO 6: READ Y(N)s NEXT : DATA 48,54,65,77,89 
,107,128 

REM DATI PER LA TAVOLA DELLE FIGURE 
FOR N = 912 T0 924: READ A: POKE N,A: NEXT : POKE 232, 

144: POKE 233,3: DATA 2,0,6,0,8.0,4,0,172,30,7,32,0 
= 12 . 5:M =1:1= 1sPITCH = 125 :SnUM = 1:NUM = 1:STADD 
= 26368: TEXT : HOME : SCALE= 1: R0T= 0 
220 M$(l) = "SINTESI SUONO":M$(2) = "SINTESI MUSICA" 

230 INI) = "TASTIERA*:1$(2) = "PADDLE" 

240 HTAB 8: INVERSE : PRINT 'SINTETIZZATORE DI SUONI": VTAB 
22: PRINT *(01985 BY APPLICANDO 4 MICROSPARC, INC.*: NORMAL 
VTAB 7: HTAB 7: PRINT "D CARICARE TAVOLA DEI*: HTAB 1 
0: PRINT "SUONI ESISTENTE" 

PRINT : HTAB 7: PRINT *2) CREARE UNA NUOVA TAVOLA" 

PRINT : HTAB 7: PRINT °3) ISTRUZIONI ": 

GET A$:X = VAL (A$>: IF X < 1 OR X > 3 THEN 250 
HOME : ON X GOTO 1820.300,1930 
PRINT "BATTI IL NOME DELLA NUOVA TAVOLA ": INPUT NAME* 

: 0NERR GOTO 2650 

IF 'VAL (NAMEt) ) 0 OR LEN (MIEI) ) 15 THEN PRINT " 

NOME DI FILE NON VALIDO. PROVA DI NUOVO": GOTO 300 
PRINT DVBSAVE* ;NAME$;*.A* ;STADD:*,L1* : POKE 216,0 
REM PULISCE IL VIDEO PER IL SUONO SEGUENTE 
HGR : HCQL0R= 3: HPLOT 0,0 T0 279,0 T0 279,159 TO 0,15 
9 T0 0,0 

GGSUB 1560:TNUM = 1 

FOR N = 0 TO 255: POKE STADD 4 SNUM * 256 - 256 4 N.0: 

NEXT : REM IN CASO DI ERRORE, VEDERE LA LINEA 1860 
HOME : VTAB 21: PRINT 'RETURN PER IL MENU'*; 

HTAB 27: INVERSE : PRINT "SUONO N. °:SNUM: NORMAL 
IF I = 1 THEN PRINT ‘TASTI Y-U-I = SU, B-N-M = GIU', 

S = DOT’: GOTO 410 

PRINT *PADDLE E PULSANTE = ALTEZZA DEL SUONO" 

PRINT 'BARRA SPAZIO = PAUSA"; 

HTAB 26: PRINT "ESC = CMBIARE* 

PRINT "TASTI 0-9 E FRECCE MUOVONO IL CURSORE"; 

REM LOOP PRINCIPALE DI CREAZIONE DEI SUONI 
IF I = 1 THEN 580 
REM INTRODUZIONE DA PADDLE 
IF M = 1 THEN 510 
480 N = 1NT (( PDL (1) 4 21.23) / 21.24)sPITCH = Q(N) 

490 HCQL0R= <N < 1): HPLOT 10,Y(0) T0 269,Y(0) 

500 HC0LQR= (N < 3): HPLOT 10,Y(1) TO 269,Y(1): GOTO 520 


170 

180 

190 

200 

210 


250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 


510 PITCH = PDL (1) 4 1: IF PITCH ) 255 THEN PITCH = 255 
520 CX = Z 4 TNUMrCY = Z 4 PITCH / 2 
530 XDRAW 2 AT CX,CY: HC0LQR= 0 

540 X = PEEK ( - 16384): IF X > 127 THEN POKE - 16368,0: 
GOTO 890 

550 X = PEEK ( - 16286): IF X > 127 THEN 620 

560 XDRAW 2 AT CX.CY: GOTO 470 

570 REM INTRODUZIONE DA TASTIERA 

580 CX = Z 4 TNUMiCY = Z 4 PITCH / 2: XDRAW 2 AT CX.CY 

590 X = PEEK ( - 16384): IF X ) 127 THEN POKE - 16368,0: 

GOTO 720 
600 GOTO 590 

610 REM RILEVAMENTO PRESSIONE PULSANTE 

620 XDRAW 2 AT CX.CY 

630 A = STADD 4 SNIM * 256 4 TNUM - 256 

640 HPLOT CX. PEEK (A) / 2 + Z 

650 POKE A,PITCH: POKE A - TNUM.TNUM 

660 TNUM = TNUM 4 l - (TNUM > 254) 

670 XDRAW 1 AT CX,CY 

680 IF PEEK ( - 16286) < 128 OR 1 = 1 THEN 450 
690 GOTO 680 

700 REM RILEVAMENTOMENTO PRESSIONE TASTO 

710 REM INTRODUZIONE DA TASTIERA 

720 IF X < 193 THEN 890 

730 IF X = 211 THEN 620 

740 XDRAW 2 AT CX,CY 

750 X = - 50 * (X = 217) - 10 * (X = 213) - 2 * (X = 201) 4 
50 * (X = 194) 4 10 * (X = 206) 4 2 * (X = 205) 

760 IF M = 2 THEN 800 

770 PITCH = PITCH 4 X: IF PITCH < 1 THEN PITCH = 1 
780 IF PITCH ) 255 THEN PITCH = 255 
790 GOTO 450 

800 FOR N = 0 TO 13: IF PITCH > Q(N) THEN NEXT 
810 X = SGN (X) * INT ( ABS (X) * .4) 

820 N = N 4 X: IF N < 0 THEN N = 0 

830 IF N > 13 THEN N = 13 

840 PITCH = Q(N) 

850 HCOL0R= (N ( 1): HPLOT 10,Y(0) TO 269,Y(0) 

860 HC0L0R= (N < 3): HPLOT 1Q,Y(1) TO 269,Y(l) 

870 HC0L0R= 0: GOTO 450 

880 REM INTRODUZIONE DA PADDLE E TASTIERA 

890 XDRAW 2 AT CX.CY 

900 X = X - 128: IF X = 21 THEN 990 

910 IF X = 32 THEN 970 

920 IF X > 47 AND X < 58 THEN 1020 

930 IF X = 8 THEN 1030 

940 IF X = 27 THEN GOSUB 1610: GOSUB 1300 

950 IF X = 13 THEN 1060 

960 GOTO 450 

970 A = STADD 4 SNUM * 256 - 256 4 TNUM 
980 HPLOT CX, PEEK (A) / 2 4 Z: POKE A,Q 
990 POKE STADD 4 SNLW * 256 - 256,TNUM 
1000 TNUM = TNUM 4 l - (TNUM > 254) 

1010 GOTO 450 

1020 X = X - 49 4 10 * (X = 48):TNUM = INT (X * 28.3): GOTO 
990 

1030 IF TNUM < 2 THEN 450 
1040 TNUM = TNLM - 2: GOTO 990 
1050 REM MENU' PRINCIPALE 

1060 HCQL0R= 3: HPLOT CX,4 TO CX,9: HPLOT CX,142 TO CX,147 

1070 HOME : 'VTAB 21: PRINT "BPROVA IL SUONO" ;: HTAB 21: PRINT 
"5)CANCELLA IL SUONO 

1080 PRINT "2)SALVA IL SUONO";: HTAB 21: PRINT "6)Ctf1BIA I 
L MODO" 

Continua 
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TEST 


Sei proprio sicuro che il tuo computer ^ 
sia sempre al sicuro? 

Siete certi di aver messo al riparo il vostro computer dai più comuni rischi 
e incidenti che possono capitargli? Rispondete sinceramente 
a queste 7 domande, sia che abbiate già sottoscritto una polizza assicurativa, 

sia che ancora non l'abbiate fatto. 



sempre più compatti e proprio per questo 
sempre più portatili (si pensi all’Apple //c), i 
personal si trasportano da casa all'ufficio, e 
viceversa, con estrema facilità. E se durante il 
tragitto si ha un incidente? Pagate voi? nSìaNo 




Andate al mare, in montagna, a casa di un 
amico e vi fermate lungo il tragitto per una 
commissione, un ladro vi ruba il computer dal 
portabagagli. Pagate voi? □ sì □ No 



Partite per una vacanza e decidete di portare 
con voi il vostro personal Andate in 
albergo, in una casa in affitto o nella villa 
di vostro fratello, e succede qualcosa al vostro 
computer. Pagate voi? a sìa No 




Siete nel bel mezzo di un applicazione 
complicata. Non volete interrompervi ma 
nemmeno rinunciare a un whisky on thè rocks 
o al caffè. Ahimè, il liquido finisce sulla 
tastiera mandando in cortocircuito il 
computer. Pagate voi?a sìa No 



Vostro figlio si avvicina al computer senza 
essere visto e comincia a picchiarci sopra con 
un oggetto più duro del vostro computer. 
Pagate voi? □ Sì □ No 




se qualche vostro amico o una vostra 
impiegata si fa male maneggiando il vostro 
personal, pagate voi?o sì □ No 


RISPOSTE 

7 No. il vostro computer è davvero al sicu¬ 
ro. Bravi. 

6 No e 1 Sì. Valutate bene se il caso in cui 
avete risposto sì ha scarse possibilità di 
verificarsi. Potrebbe valere la pena di ri¬ 
schiare e di lasciare le cose come stanno. 
Da 2 a 7 Sì. Affrettatevi a leggere il box qui 
sotto, perché il vostro computer non è 
affatto al sicuro, il che potrebbe causarvi 
un sacco di fastidi e farvi perdere un muc¬ 
chio di soidi. 


e applicando 

vi mettono ai sicuro 

Sicuramente sarete convinti che esista già da tempo una 
polizza per assicurare il personal computer Non è così 
Finora tutte le compagnie di assicurazione hanno creato 
polizze nate per garantire i grossi centri di elaborazione 
dati, e solo in seguito hanno adattato queste polizze alle 
esigenze di coloro che vogliono assicurare il proprio perso 
nai Ma una polizza adattata non può certo paragonarsi a 
una polizza nata apposta per soddisfare le esigenze del 
possessore di un personal computer Applicando in colla 
borazione con la Ras una delle piu importanti compagnie di 
assicurazioni italiane ha studiato a fondo li problema E 
nata così la Polizza Applicando la prima e per il momento 
unica assicurazione che copra tutti i rischi relativi ai posses 
so e all uso di un personal e delle sue periferiche (stampan 
ti drive video,ecc» Applicando è orgogliosa di presentarla 
in anteprima ai suoi lettori e di offrire loro la possibilità di 
sottoscriverla nella maniera più semplice Basta leggere 
attentamente le condizioni pubblicate alla pagina seguen 
te. compilare il tagliando e spedirlo a Editronlca srl. Polizza 
Applicando Corso Monforte 39 20122 Milano Avrete così 
risolto per sempre tutti i vostri problemi 







































Condizioni generali di assicurazione. 


1) Premessa 

a) l'adesione alla presente polizza è riservata ai proprie¬ 
tari di un Personal Computer il cui valore stabilito 
come alla Condizione 6) sia superiore a L. 2.500.000 
IVA compresa; 

b) l'adesione alla presente polizza da parte dei proprie¬ 
tari di personal Computer avverrà a mezzo invio di 
apposita cartolina con il relativo importo di premio; 

c) l’intestatario della cartolina sarà considerato a tutti gli 
effetti come l’Assicurato; 

d) la garanzia sarà operante dalle ore 24 del giorno di 
spedizione della cartolina, risultante dal timbro posta¬ 
le. La copertura avrà durata un anno, sempreché la 
data di inizio della garanzia sia compresa nel periodo 
di validità della convenzione; 

GARANZIE PRESTATE E CONDIZIONI DI 
ASSICURAZIONE 

2) Sez. I - Danni materiali 

Derivanti da: 

a) incendio, opera di spegnimento e salvataggio, fulmi¬ 
ne, esplosione, scoppio, implosione; 

b) acqua e liquidi in genere, inondazione, alluvione, 
trombe, uragani, gelo, ghiaccio, neve, grandine, va¬ 
langa, caduta di massi e altri simili eventi; 

c) superamento del muro del suono, caduta di aeromo¬ 
bili o cose da essi trasportate; 

d) corto circuito, variazione di corrente, sovratensione 
arco voltaico, deficienze di isolamento, effetti di elet¬ 
tricità statica, induzione; 

e) imperizia, negligenza, errata manovra, nonché azioni 
dolose e colpose in genere; 

f) trasporti e smontaggi connessi con lavori di pulizia o 
di manutenzione; 

g) furto e rapina; 

h) terremoto, maremoto od eruzioni vulcaniche; 

i) persone che prendono parte a tumulti popolari, scio¬ 
peri, sommosse e che perpetrino indivudualmente od 
in associazione atti di terrorismo o sabotaggio verifi¬ 
catisi in occasioni di serrate. 

3) Sez. Il - Responsabilità Civile Terzi 

L’assiGurazione si intende inoltre prestata per la Respon¬ 
sabilità Civile derivante all'Assicurato dalla proprietà e 

dall’uso personale del Computer assicurato identificato 

nel certificato di assicurazione. 

I massimali di garanzia si intendono fissati in: 


L. 100.000.000 per sinistro con il limite di 

L. 100.000.000 per ciascuna persona deceduta o che 
abbia subito lesioni personali 

L. 100.000.000 per danni a cose e/o animali. 

4) Esclusioni 

La Società non è obbligata per i danni dovuti a: 

- dolo dell'Assicurato; 

- corrosione, deperimento, logoramento che siano con¬ 
seguenza del normale uso o funzionamento o causati 
dagli effetti graduali degli agenti atmosferici; 

- per i quali deve rispondere il fornitore, venditore o loca¬ 
tore degli enti assicurati per legge o per contratto, o per 
inadeguata manutenzione; 

- causati da difetti di materiale o di costruzione che esi¬ 
stevano già all'atto della stipulazione della polizza ed 
erano a conoscenza dell’Assicurato; 

- causati direttamente od indirettamente da avvenimenti 
bellici, sommosse militari, invasioni, adozione di misure 
da parte di potenze straniere, rivoluzione, ribellione, 
insurrezione, assunzione od usurpazione di potere di 
carattere militare, sequestri; 

- verificatisi in occasione di esplosione, radiazione nu¬ 
cleare o di contaminazione radioattiva; 

- uso improprio del bene (mancato rispetto delle norme 
di impiego dettate dal costruttore); 

- danni estetici (quelli interessanti l’involucro esterno che 
non sia conseguenza di un danno risarcibile a termine 
della presente polizza); 

- guasti casualmente riconducibili ad interventi, a ripara¬ 
zioni e/o modifiche effettuate da un centro non autoriz¬ 
zato dalla casa costruttrice della macchina; 

- danni indiretti in genere. 

5) Operatività della garanzia 

a) La garanzia è operante solamente se gli enti assicurati 
sono ubicati presso il domicilio dell’Assicurato od in 
luoghi diversi da questi se in possesso dell’Assi¬ 
curato. 

b) La garanzia è pure efficace se i beni si trovano sull'au¬ 
tovettura in uso all’Assicurato, salvo i seguenti casi: 

- qualora l’autovettura venga lasciata incustodita dal¬ 
le ore 22 alle ore 6; 

- qualora l'autovettura regolarmente chiusa a chiave 
venga lasciata incustodia dalle ore 6 alle ore 22 e gli 
enti assicurati non opportunamente occultati nel 
bagagliaio. 


c) Limitatamente ai danni di rottura la garanzia è effica¬ 
ce solamente nel caso questi siano dovuti ad un inci¬ 
dente in cui rimanga coinvolto anche il veicolo in uso 
dell’Assicurato che trasportava i beni assicurati. 

d) Per gli enti per i quali non è stato stipulato il contratto 
di manutenzione e/o assistenza con la casa costrut¬ 
trice e/o ditte di essa mandatarie qualora l'ente ri¬ 
chieda per norma del fornitore detto contratto, la 
Società non risponde dei danni verificatisi in conse¬ 
guenza di guasto meccanico e/o elettrico salvo che 
l'Assicurato provi che tale guasto sia causato da even¬ 
to esterno agli enti, assicurati o da incendio originato 
da uno di questi enti. 

6) Somma Assicurata 

La somma assicurata per ciascun ente deve corrispondere 
al costo di rimpiazzo, ossia al prezzo di listino della casa 
costruttrice ed escluso ogni sconto o prezzo di favore di 
un ente nuovo, eguale od equivalente per caratteristiche, 
prestazioni e rendimento economico. 


7) Premio 

Per ogni singola applicazione è stabilito un premio forfet¬ 
tario omnicomprensivo così calcolato: 


Somma assicurata 

Premio 

da 2.500.000 a 3.000.000 

L. 

50 000 

da 3.000.000 a 5 000 000 

L. 

65 000 

da 5 000 000 a 7 000 000 

L. 

80 000 

da 7 000.000 a 10.000.000 

L. 

100 000 

da 10.000.000 a 15 000 000 

L. 

120 000 

da 15.000.000 a 20.000 000 

L. 

150.000 


8) Franchigia 

per ogni e qualsiasi danno checolpisca gli enti assicurati è 
stabilita una franchigia di: 

L. 50.000 per somma assicurata fino a L. 5.000.000 

L. 100.000 per somma assicurata superiore a 

L. 5.000.000 

Per sinistri causati da eventi come ai punti g) ed h) delle 
garanzie prestate, la Società liquiderà i danni sotto dedu¬ 
zione di uno scoperto pari al 20% della somma assicurata, 
col minimo delle franchigie sopra stabilite. 

9) Rinvio alle norme di legge 

Per tutto quanto non è qui diversamente regolato, valgono 
le norme di legge. 


V e applicando 

vi mettono al sicuro 


Sì! Desidero assicurare i miei/il mio computer, inviatemi a stretto giro di posta il certificato emesso dalla Ras. 
L’assicurazione avrà valore a decorrere dalle ore 24 del giorno di spedizione della mia adesione. Per la data fa fede il 
timbro postale. 


COGNOME. 

NOME . 

INDIRIZZO . 



. N. 

CAP. CITTA' . 


. PROVINCIA. 


Assicuro i/il seguente personal: 

Marca e Modello 

N. di matricola 

Valore (IVA compresa) 



con le seguenti periferiche (stampanti, video, drive, hard disk, ecc) 

Marca e Modello N. di matricola valore (IVA compresa) 


Nel caso non abbiate sufficiente spazio ricopiate su un foglio il testo completo di questo tagliando indicando tutti i prodotti che intendete assicurare. 

Per un totale complessivo di Lire.su cui pago il premio calcolato in base alla tabella riportata qui sopra (su fondoverde). 

Allego assegno non trasferibile di Lire.intestato a Editronica srl, Corso Monforte 39,20l22Milano. 















































Applesoft. Copiate dapprima il listato 
in linguaggio macchina, LETTORE 
SUONO (visibile nel listato 1). Per 
avere aiuto nell’introduzione dei lista¬ 
ti in linguaggio macchina, leggete l’ar¬ 
ticolo Per chi comincia. Quando avete 
ultimato la battitura del listato, salvate 
il programma sul dischetto con il co¬ 
mando: 


BSAVE LETTORE SUO¬ 
NO, A$300,L$70 


poi introducete il programma in Ap¬ 
plesoft visibile nel listato 2. Dovete 
salvare il programma prima di cercare 
di eseguirlo, a causa del modo in cui il 
programma si riposiziona al disopra 
dello schermo grafico Hi-Res. Fa così 
(nelle linee di programma 90—110) 
perché il programma è troppo grande 
per stare completamente sotto la pagi¬ 


na 1 dello schermo Hi-Res. 

Quando avete introdotto il pro¬ 
gramma, salvatelo con il nome SIN¬ 
TETIZZATORE. Solo a questo pun¬ 
to potrete utilizzare il programma. 

Riga per riga 


80-320 Inizializzazione 
330-430 Pulisce per il suono seguente 
440-600 Loop principale di creazione 
del suono 

610-690 Trattamento pressione pul¬ 
sante 

700-1040 Trattamento pressione ta¬ 
sto 

1050-1130 Menù principale 
1140-1210 Prova il suono 
1220—1280 Salva il suono 
1290-1310 Aggiunge al suono 


1320-1430 Visualizza il suono creato 
in precedenza 

1440-1460 Cancella il suono 
1470-1560 Cambia modo 
1570-1590 Fine 
1600-1800 Sposta il suono 
1810-1910 Carica la tavola dei suoni 
salvata 

1920-2630 Istruzioni 
2640-2760 Trappola degli errori 


La principale sezione di lavoro del 
programma è il loop di creazione ed 
editing del suono, situato nelle linee 
330-430. Questo loop sorveglia se sia 
stato premuto un tasto. Nel modo di 
introduzione da paddle il loop conser¬ 
va la posizione verticale del cursore e 
inoltre legge lo stato del pulsante della 
paddle. Se viene premuto un tasto, il 
programma salta alla routine delle li¬ 
nee 700-1040, per determinare quale 


1090 PRINT RAGGIUNGE SUONO':: HTAB 21: PRINT B 7)FINE" 

1100 PRINT '4)VISUALIZZA IL SUONO CREATO ':: GET Al 
1110 X = VAL (A*): 1F X < 1 OR X > 7 THEN 1060 
1120 ON X GOSUB 1150,1230,1300,1330,1450,1480,1580 
1130 GOTO 1060 
1140 REM PROVA IL SUONO 

1150 HOME : VTAB 21: HTAB 7: PRINT '««PROVARE IL SUONO**' 

1160 INPUT 'ALTEZZA TOTALE DEL SUONO (1-9)’ ';P: IF P < 1 OR 
P > 9 THEN 1160 

1170 INPUT 'NLMER0 DELLE RIPETIZIONI (1-255)? ';R: IF R < 

1 OR R > 255 THEN 1170 

1180 INPUT 'LUNGHEZZA DI OGNI SUONO (1-255)? ';L: IF L < 1 
OR L > 255 THEN 1180 

1190 PRINT 'CALL 768,'SNUM','P','R','Ls CALL 768,SNLN,P,R, 

1200 PRINT ' «PREMI RETURN PER IL MENU'» ';: GET A*: 

IF ASC (Al) = 13 THEN RETURN 
1210 GOTO 1150 
1220 REM SALVA IL SUONO 

1230 HOME : VTAB 21: PRINT ' VERIFICA SALVATAGGIO (S/N)? ' 

;: GET Al: IF A$ < ) 'S' THEN RETURN 
1240 HOME : VTAB 21: PRINT ' **ST0 SALVANDO LA TAVOLA DEI 
SUONI**': PRINT 'NOME DELLA TAVOLA - ':W1EI 
1250 A = ( PEEK (STADD 4 NUM * 256 - 256) = 0) 

1260 X = 256 * (NUM - A):NUM = NUM + 1 - A 
1270 PRINT Dlj'BSAVE *jNAHEI;',A';STADD;' ,L' ;X 
1280 POP : GOTO 1870 
1290 REM AGGIUNGE AL SUONO 

1300 HC0L0R= 0: HPL0T CX,4 T0 CX,9: HPL0T CX,142 T0 CX,147 
1310 POP : GOTO 370 

1320 REM VISUALIZZA IL SUONO PRECEDENTE 
1330 IF NUM < 2 THEN RETURN 

1340 HOME : VTAB 21: PRINT 'QUALE SUONO VUOI VEDERE (l-'NU 
M;: INPUT ")? .':AI 

1350 X = VAL (A$>: IF X < 1 OR X > NUM THEN 1340 

1360 HPL0T 13,11 T0 267,11: HC0L0R= 0: HPL0T 2,1 T0 2,158 

1370 SNUM = X:TNUM = PEEK (STADD ♦ SNUM * 256 - 256) 

1380 F0R N = 1 T0 255 

1390 CX = Z + N:Q = PEEK (STADD ♦ SNUM * 256 - 256 4 N):CY 
= Z 4 Q / 2 

1400 HPL0T CX,1 T0 CX,158: IF Q ) 0 THEN XDRAW 1 AT CX,CY 
1410 NEXT 

1420 IF M = 2 THEN GOSUB 1560 

1430 CX = Z 4 TNUM: HC0L0R= 3: HPL0T CX,4 T0 CX,9: HPL0T CX 
,142 T0 CX,147: RETURN 
1440 REM CANCELLA IL SUONO 

1450 HOME : VTAB 21: PRINT 'VERIFICA LA CANCELLAZIONE (S/N 
)? ';: GET A*: IF Al < > 'S' THEN RETURN 
1460 POP : GOTO 340 
1470 REM CAMBIA IL MODO 

1480 HOME : VTAB 21: IWERSE : PRINT ’ MODO CORRENTE ': PRINT 
M$(M): PRINT IKI): N0RMAL 


1490 VTAB 22: HTAB 18: PRINT 'DCAMBIA MODO SUONO' 

1500 HTAB 18: PRINT SCAMBIA MODO INTR0DUZ.' 

1510 HTAB 16: PRINT '«RETURN PER IL MENU'» GET Al 

1520 X = ASC <A$): IF X = 13 THEN RETURN 

1530 IF X = 49 THEN M = 2 - (M = 2): GOSUB 1560: GOTO 1480 

1540 IF X = 50 THEN 1 = 2 - (I = 2): GOTO 1480 

1550 GOTO 1480 

1560 HC0L0R= M - 1 : F0R N = 2 * M - 2 T0 6: HPL0T 10,Y(N) T0 
269,Y(N): NEXT : RETURN 
1570 REM FINE 

1580 HOME : VTAB 21: PRINT 'SEI SICURO (S/N)? ';: GET Al: IF 
Al < ) 'S' THEN RETURN 
1590 TEXT : HOME : END 
1600 REM VISUALIZZA LO SPOSTAMENTO 

1610 HC0L0R= 3: HPL0T CX,4 T0 CX,9: HPL0T CX,142 T0 CX,147 

1620 HOME : VTAB 21: PRINT 'CON QUESTA CARATTERISTICA PUOI 
SPOSTARE* 

1630 PRINT 'Timi I DOT CHE SONO ALLA DESTRA DEL': PRINT • 
CURSORE." 

1640 PRINT 'SPOSTI A SINISTRA 0 A DESTRA (S/D)? GET AS 
: PRINT Al 

1650 IF Al = 'D' THEN A* = 'DESTRA':X = 1: GOTO 1680 
1660 IF A$ < > 'S" THEN 1610 
1670 A$ = 'SINISTRA':X = -1 

1680 PRINT 'QUANTO A 'Al" (0-9)? ’:: GET Al: PRINT Al: 

1690 PRINT : PRINT : IWERSE : HTAB 16: PRINT 'STO SPÒSTAN 

DO"; : N0RMAL 

1700 X = X * VAL (A^): 0N SGN (X) 4 2 GOTO 1710,1800,1730 

1710 IF - X > = TNUM THEN X = 1 - TNUM 

1720 F0R N = TNUM T0 255: G0TQ 1750 

1730 IF X 4 TNUM > 255 THEN RETURN 

1740 F0R N = 255 - X T0 TNLW STEP - 1 

1750 Q = STADD 4 256 * SNUM - 256 4 N: P0KE Q 4 X, PEEK (Q) 

: NEXT 

1760 IF X ) 0 THEN F0R N = TNUM T0 TNUM 4 X: P0KE STADD 4 
SNUM * 256 - 256 4 N.0: NEXT : GOTO 1780 

1770 F0R N = 255 4 X T0 255: P0KE STADD 4 SNUM * 256 - 256 

4 N.0: NEXT 

1780 P0KE STADD 4 SNUM * 256 - 256,TNUM 4 X:X = SNUM 
1790 GOSUB 1360 
1800 RETURN 

1810 REM CARICA LA TAVOLA DEI SUONI SALVATA 

1820 PRINT 'BATTI IL NOME DELLA TAVOLA DEI SUONI' 

1830 PRINT 'BATTI 'CAT' PER IL CATALOGO': QNERR GOTO 2660 

1840 INPUT m&\ IF NAMEI = 'CAT' THEN 1900 
1850 PRINT DI :'BLOAD*:NAMEI;".A';STADD: P0KE 216,0 
1860 NUM = PEEK (4361?) + 1: REM PER IL PR0D0S CAMBIARE I 
N 48858 L'INDIRIZZO DI PEEK 

Continua 
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tasto sia stato premuto e che cosa fare 
in proposito. Se il pulsante della padd- 
le è premuto nel modo introduzione 
da paddle, il programma salta invece 
alla routine delle linee 610-690. Per 
comprendere queste due routine e tut¬ 
ti i loro PEEK e POKE elenchiamo 
qualche variabile utilizzata nel pro¬ 
gramma. 


CX,CY - le coordinate X e Y del 
cursore. 

PITCH - Il numero dell’altezza del 
suono; 1 rappresenta l’altezza massi¬ 
ma, 255 quella minima, e 0 rappresen¬ 
ta una pausa. 

TNUM - Il numero dei dot di suono 
singolo alla sinistra del cursore (com¬ 
prese le pause). 

SNUM - Il numero del suono. 
STADD - L’indirizzo di avvio della 
tavola dei suoni. 


La tavola dei suoni è semplicemente 
una lista del numero di altezza del suo¬ 
no di ciascun dot di suono singolo in 
esadecimale. A ogni suono della tavo¬ 
la sono assegnati $100 (ossia 256) byte. 
Il primo (o $00) byte di ciascun suono 
dà il numero dei byte assegnati che 
sono effettivamente usati per quel 
suono, e quindi è un numero compre¬ 
so fra $01 e $FF. Ciascuno dei byte 
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successivi, fino al byte $FF compreso, 
contiene il numero di altezza del suo¬ 
no di uno dei dot di suono, o uno zero 
se in quella posizione non c’è alcun dot 
di suono. Il suono seguente comincia 
con il successivo intervallo di byte 
$100, e quindi una tavola dei suoni di 
quattro suoni sarà lunga $400 byte. Il 
listato 4 dà un esempio di tavola dei 
suoni. 

Come si può vedere, una tavola dei 
suoni di vaste proporzioni occupa un 
notevole quantitativo di memoria. 
Fortunatamente è facile mettere la ta¬ 
vola dei suoni in una sezione di memo¬ 
ria che non verrebbe altrimenti usata. 
Il SINTETIZZATORE DI SUONI 
costruisce la tavola dei suoni comin¬ 
ciando alFindirizzo di memoria $6400, 
che è un poco sopra la pagina 2 della 
grafica ad alta risoluzione. Questa lo¬ 
cazione dovrebbe andar bene nella 
maggior parte delle circostanze. Tut¬ 
tavia se si ha un programma lungo e si 
vuol mettere il programma sopra gli 
schermi della grafica, si può, volendo, 
mettere la tavola dei suoni a $800. Per 
far questo basta usare nel proprio pro¬ 
gramma queste linee: 

BLOAD LETTORE SUONI 
BLOAD filesuoni, A$800 
POKE 789,8 
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Il POKE cambia il byte del pro¬ 
gramma LETTORE SUONI che iden¬ 
tifica la locazione della tavola dei suo¬ 
ni. Se si vuole la tavola dei suoni da 
qualche altra parte della memoria si 
rammenti quanto segue: 

• Il byte basso deH’indirizzo esadeci- 
male deve essere $00 (cioè $800, 
$4000, $6100). 

• Il secondo parametro del POKE de¬ 
ve essere l’equivalente decimale del 
byte aito dell’indirizzo esadecimale. 


Lettore di suoni 

La base di tutti gli effetti sonori pro¬ 
dotti dall’Apple è la locazione di me¬ 
moria -16336, o $C030 in esadecima¬ 
le. L’accesso a questa locazione pro¬ 
durrà un singolo click dell’altoparlan¬ 
te dell’Apple. In linguaggio macchina 
questi click possono essere generati 
abbastanza rapidamente da produrre 
un suono singolo, la cui altezza dipen¬ 
derà dalla lunghezza della pausa fra i 


click. Il programma LETTORE SUO¬ 
NI usa i dati memorizzati in un file di 
suoni creato dal SINTETIZZATORE 
per determinare la lunghezza di queste 
pause. I particolari del modo in cui ciò 
viene fatto si possono comprendere 
meglio esaminando il listato assembla¬ 
tore del programma (listato 1). 

Le Linee 20—31 memorizzano i pa¬ 
rametri n, p, r e 1 dal comando CALL 
in SNUM, OPITCH, REP e TLEN 
rispettivamente. 


1870 HOME : VTAB 21: PR1NT "IL FILE "ftiMEI" ATTUALMENTE" 

1880 PR1NT "CONTIENE "NUM - 1" SUONI." 

1890 SNUM = NUM: GOTO 340 
1900 PR1NT Dt:'CATAL06" 

1910 GOTO 1820 

1920 REM ISTRUZIONI 

1930 HOME : HTAB 14: PRINT "ISTRUZIONI" 

1940 VTAB 6: PRINT "QUESTO PROGRAMiA CREA I SUONI IN DUE 
MODI." 

1950 PRINT : PRINT "IL PRIMO E" PER CREARE EFFETTI SONORI" 

I960 PRINT "DI OGNI VARIETÀ', E IL SECONDO E' PER" 

1970 PRINT "SINTETIZZARE LA MUSICA." 

1980 PRINT : PRINT "PER USARE IL MODO UNO DISPORRE IL SU0N 

0" 

1990 PRINT "VOLUTO SUL MONITOR IN HI USANDO liti " 

2000 PRINT “PADDLE 0 JOYSTICK E LA TASTIERA, 0 SOL- 
2010 PRINT "TANTO LA TASTIERA." 

2020 PRINT : PRINT "LA PARTE ALTA DELLO SCHERMO RAPPRESENT 

A" 

2030 PRINT "IL SUONO ALTO, E LA PARTE BASSA IL SUONO"; 

2040 PRINT "BASSO." 

2050 F0R N = 1 T0 255 

2060 Q = <N < 127) * (125 - 60 * SIN <N * .05)) 

2070 POKE STADD ♦ N.Q: NEXT 

2080 G0SUB 2610: PRINT "UN ESEMPIO POTREBBE PRESENTARSI CO 
SL." 

2090 HGR : HCGL0R= 3: HPLOT 0,0 T0 279,0 T0 279,159 T0 0,1 
59 T0 0,0 

2100 X = 1:M = 1: POKE STADD,126: GOSUB 1360 
2110 VTAB 21: PRINT "QUANDO VUOI SENTIRE IL SUONO RITORNA 
AL" 

2120 PRINT "MENU' E USA L'OPZIONE PROVA'.": GOSUB 2610 
2130 PRINT "CONTROLLA L'ALTEZZA TOTALE DEL SUONO," 

2140 PRINT "IL NUMERO DELLE RIPETIZIONI" 

2150 PRINT "E LA LUNGHEZZA DI OGNI NOTA.": GOSUB 2610 
2160 PRINT "CON LE NOTE DISEGNATE SOPRA, QUESTO": CALL 768 
,1.1,1,30 

2170 PRINT "E QUESTO,": CALL 768.1,2,10.1 
2180 PRINT "E QUESTO. " ; : CALL 768,1.9.3,3 
2190 PRINT "SONO POSSIBILI.": GOSUB 2610 
2200 PRINT "SE NON SEI SODDISFATTO DEL SUONO, " 

2210 PRINT "USA L'OPZIONE 'AGGIUNGE SUONO'.": GOSUB 2610 
2220 PRINT "PUOI SPOSTARE IL CURSORE IN ORIZZONTALE" 

2230 PRINT "A SINISTRA 0 A DESTRA CON LE FRECCE." 

2240 PRINT "0 CON I TASTI DEI NUMERI (0-9).": GOSUB 2610 
2250 PRINT "PUOI SCRIVERE SOPRA INA SEZIONE ERRATA" 

2260 PRINT "CON DOT DI SINGOLI SUONI DIVERSI, 0 CAN-CELLAR 
E UNA"; 

2270 PRINT " SEZIONE CON LA BARRA SPAZIO.";: GOSUB 2610 

2280 TNUM = 30:CX = Z + 12ó:CY = 60 

2290 PRINT "PUOI ANCHE SPOSTARE LA PARTE DESTRA" 

2300 PRINT "DELLO SCHERMO A SINISTRA 0 A DESTRA." 

2310 PRINT "METTI PER ESEMPIO IL CURSORE QUI E’ 

2320 PRINT "PREMI ESC PER PROVARE. ((PREMI ESC» "; 

2330 HC0t0R= 0: HPLOT CX,4 T0 CX,9: HPLOT CX,142 TO CX,147 
:CX = Z + TNUM: XDRAU 2 AT CX,CY 
2340 GET Al: IF ASC (Al) ( > 2? THEN 2340 
2350 XDRAU 2 AT CX.CY: GOSUB 1610 
2360 HOME : VTAB 21 : IF X = 0 THEN PRINT "PER FAVORE PROV 
A ANCORA CON UNO SP0STA-MENT0 NON-ZERO.": GOSUB 2610: GOTO 
2320 

2370 PRINT "OSSERVA CHE IL LETTORE SUONI LEGGE SOLO FINO"; 

2380 PRINT " ALLE BARRE DI 'FINE DEL SUONO'.": CALL 768,1, 
2,3.70 

2390 GOSUB 2610: PRINT "PERCIÒ' METTI IL CURSORE ALLA FINE 
DEL" 


2400 PRINT "SUONO PRIMA DI FARE LA PROVA.": GOSUB 2610 
2410 PRINT "IL MODO DUE PREDISPONE UN PENTAGRAtflA" 

2420 PRINT "CHE PERMETTE DI TRASCRIVERE DIRETTAMENTE"; 

2430 PRINT "DALLO SPARTITO IN QUESTO MODO." 

2440 Q = 1 : FOR N = 0 TO 8 

2450 READ X,A: DATA 7,9,5,11,3,14,14,1,5,9,6,8,5,9,7,7,14 
,60 

2460 FOR TNUM = Q T0 Q ♦ A: POKE STADD ♦ TNLti,Q(X) 

2470 NEXT TNUM;Q = TNUM 
2480 NEXT N 

2490 POKE STADD,79:X = 1:M = 2: GOSUB 1360 

2500 GOSUB 2610: PRINT "LE NOTE ALTE HFWO UN SUONO PIU' V 

ELOCE" 

2510 PRINT "QUINDI LA LINEA DELLA NOTA DEVE ESSERE" 

2520 PRINT "PIU' LUNGA PER AVERE UN'UGUALE DURATA.": CALL 
768.1.4,1,12 

2530 GOSUB 2610: CALL 768.1.1,1.25: TEXT : VTAB 7 
2540 PRINT "QUANDO SEI SODDISFATTO DEL SUONO REGI-" 

2550 PRINT "STRA IL COMANDO CALL VISUALIZZATO E " 

2560 PRINT "SALVA IL SUONO. PER USARE IL SUONO IN UN"; 

2570 PRINT "PR0GRAM1A IN APPLESOFT CARICA CON BLOAD" 

2580 PRINT "IL FILE DEI SUONI E IL PROGRAMMA LETTORE"; 

2590 PRINT "SUONI E USA IL tOWNDO CALL PER ESEGUI REI L SUO 

NO." 

2600 GOSUB 2610: RESTORE : GOTO 160 

2610 VTAB 24: HTAB 7: PRINT "((RETURN PER CONTINUARE» "; 

2620 GET Al: IF ASC (Al) ( ) 13 THEN 2610 
2630 HOME : VTAB 21 : RETURN 
2640 REM ROUTINE DEGLI ERRORI 

2650 EL = 1: GOTO 2670: REM PUNTATORE PER SCRITTURA SU DI 
SCO 

2660 EL = 2: REM PUNTATORE PER LETTURA DA DISCO 
2670 ER = PEEK (222) 

2680 IF ER = 4 THEN PRINT "DISCO PROTETTO IN SCRITTURA": GOTO 
2760 

2690 IF ER = 6 THEN PRINT "IL FILE NON ESISTE": GOTO 2760 

2700 IF ER = 8 THEN PRINT "ERRORE DI I/O DISCO": GOTO 276 

0 

2710 IF ER = 9 THEN PRINT "DISK FULL": GOTO 2760 

2720 IF ER = 10 THEN PRINT "FILE PROTETTO": GOTO 2760 

2730 IF ER = 11 THEN PRINT "NOME DEL FILE NON VALIDO": GOTO 

2760 

2740 IF ER = 13 THEN PRINT "IL TIPO DEL FILE NON CORRISPO 
NDE": GOTO 2760 

2750 PRINT "ERRORE N.";ER"A LINEA "; PEEK (218) 4 PEEK (2 
19) * 256 

2760 0N EfGOTO 300,1820 
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Le linee 32-42 calcolano il byte alto 
dell’indirizzo dell’inizio del suono, ba¬ 
sato sul numero del suono, e lo memo¬ 
rizzano nelle locazioni di memoria 
$324 e $33F dentro il programma. Ciò 
corregge STSOUND, che è in origine 
impostato su $FF00. 

Le linee 43-45 memorizzano la lun¬ 
ghezza del suono in SLEN. 

Le linee 46-55 calcolano il valore 
esatto per BRANCH, basato sull’al¬ 
tezza totale di suono p. Una volta che 
la correzione è fatta, la linea 85 pro¬ 
durrà un salto a una delle linee 75-83. 
Un salto alla linea 75 ha come conse¬ 
guenza la pausa più lunga, e si verifica 
con un’altezza totale di suono di 9. 

Le linee 56—96 sono il loop che pro¬ 
duce il suono. All’interno di questo 
loop viene caricato nel registro X un 
numero di altezza del suono preso dal¬ 
la tavola dei suoni. Se quel numero è 
zero, la linea 72, che provvede al click 
dell’altoparlante, viene saltata. Le li¬ 
nee 73 — 83 eseguono la pausa fra i 
click che determina l’altezza del suo¬ 
no. Dopo la pausa ci sono i salti condi¬ 
zionati per i tre loop nidificati che de¬ 
terminano se ripetere lo stesso nume¬ 
ro di altezza del suono, andare al nu¬ 
mero di altezza del suono seguente, 
ripetere il suono o finire. 

La diversità dei suoni generati da 
questa routine deriva dalle variabili 
OPITCH, REP e TLEN e dalla natura 
delle tavole dei suoni che legge. La 
sola questione che rimane è come fare 
una tavola dei suoni che produca i suo¬ 
ni desiderati. 

Programma 

dimostrativo 

I programmi SINTETIZZATORE 
e LETTORE SUONI sono in sé com¬ 


pleti, e il SINTETIZZATORE com¬ 
prende le istruzioni per l’uso del siste¬ 
ma. Ma la varietà di tecniche possibile 
è abbastanza grande perché un buon 
corredo di esempi sia utile per mettersi 
sulla via giusta. A questo scopo vengo¬ 
no qui presentati, come listati 3 e 4, 
anche il programma in Applesoft 
SOUND.DEMO e il file binario 
SUONI. SUONI deve essere introdot¬ 
to dal Monitor, e quando è completo 


può essere salvato su dischetto con il 
comando: 


BSAVE SUONI, A$6400, L$E00 


SUONI è un vero e proprio file di 
suoni creato con il SINTETIZZATO¬ 
RE e comprende suoni come una bat¬ 
teria laser, canti di uccelli, un’esplo¬ 
sione, mitragliatrici, l’inno dei Marine 
e altro (si vedano le figure da 3 a 11). 
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Figura 11. 
Grafico 
del suono 
del sibilo 
di una 
granata 
in arrivo. 



Inoltre richiama ciascun suono e mo¬ 
stra il comando o i comandi utilizzati 
per crearli. Nel complesso è inteso a 
far comprendere meglio come viene 
creato il suono, in modo che l’utente 
possa progettare più agevolmente suo¬ 
ni personalizzati per i suoi programmi. 


Modifiche 
al programma 

Quando si comprende a fondo il 
SINTETIZZATORE si può decidere 
di modificare il programma. È perciò 
importante osservare che la fine del 
programma viene molto vicina all’ini- 


Listato 3: SOUND. DEMO 


10 REM *************************** 

20 REM * SOUND.DEMO * 

30 REM » DI JAMES R. GESCHWENDER * 

40 REM * COPYRIGHT<0 1985 * 

50 REM * BY APPLICANDO 4 * 

60 REM * M1CR0SPARC, INC. * 

70 REM a#*******#****#**#»***###** 

80 DIM Y(4):D$ = CHR$ <4):STADD = 25600:Z = 12.5 
90 PR1NT D*;’BLQAD LETTORE.SUONI": POKE 789,100 
100 POR N = 0 TO 4: READ Y<N): NEXT : DATA 65,77,89,107,1 
28 

110 TEXT : HOME : VTAB 10: KTAB 10: PRINT 'DIMOSTRAZIONE 
SUONO': VTAB 22: PRINT '(01985 BY APPL1CMD0 & MICROS 
PARC INC." 

120 FRINÌ Wj'BLOAD SUONI' 

130 FOR N = 6 T0 3000: NEXT : CALL 768,6,1,1,30 
140 CALL 768,13.5.2,13: CALL 768,14,5,1,13: FOR N = 1 TO 4 
50: NEXT : CALL 768.13.5,1.13 
150 CALL 768,9,3,40,4: G0SUB 210 
160 CALL 768,9.3,15.4: GOSUB 210: GOSUB 210 
170 FOR N = I TO'1500: NEXT 
180 CALL 768,11.2,1,30: FOR N = 1 T0 500: NEXT 
190 FOR N = 1 T0 10: CALL 768,7,1,1,1:X = RND (1) * 440: FOR 
Q = 1 T0 X: NEXT Q: NEXT N 
200 GOTO 220 

210 CALL 768,8,2.1,8: FOR N = 1 TO 9: CALL 768.10.N,1,1 : POKE 
- 16299,0: CALL 768.10.N,1,1 : POKE - 16300,0: CALL 7 
68.10,N,1,1: NEXT : RETURN 

220 HOME : VTAB 5: PRINT 'IL PROGRAM SI PROPONE DI INDIC 
ARE Al -1 

230 PRINT "CENE DELLE CAPACITA' DEL SINTETIZZATORE* 

240 PRINT *DI SUONI. TUTTI I SUONI CHE AVETE APRE-* 

250 PRINT *M SENTITO SONO STATI CREATI CON IL SIN-TET1ZZA 
TORE*; 

240 PRINT * DI SUONI E SONO STATI SALVA-TI SU QUESTO D1SCH 
ETTO CON IL NOME DI * 

270 PRINT ‘FILE 'SUONI'. SAIW10 INDICATE ALCUNE* 

280 PRINT 'TECNICHE UTILI COME AIUTO PER LA PR0GET-* j 
270 PRINT DAZIONE PERSOTELE DEI SUONI. PER OGNI * 

300 PRINT ‘SUONO EMESSO SARA' INDICATO" ; 

310 PRINT * CHE ASPETTO HA IL SUONO E IL* : 

320 PRINT 1 COMANDO 0 1 COMANDI USATI PER RICHIAMARLO*; 

330 PRINT * DA UN PROGRAftW lfmLESOFT-BASlC.* : GOSUB 128 
0 

340 X = I: GOSUB 1300 

350 PRINT ‘PERFINO GLI SCHEMI PIU' SEMPLICI POSSONODARE*; 

340 PRINT * EFFETTI INTERESSANTI QUFWDO SONO* 

370 PRINT 'RIPETUTI RAPIDAMENTE.*:P = 1:R = 10:L = 7: GOSUB 
1240 

380 P = 4:R = 10:L = 4: GOSUB 1250 
390 P = ?:R = 10:L = 2: GOSUB 1250 
400 PRINT 'NATURALMENTE UW MAGGIORE COMPLESSITÀ'* 

410 PRINT 'DA' PIU' POSSIBILITÀ'.*iX = 2: GOSUB 1300 

420 P = 1 :R = 10:L = 1: GOSUB 1240 

430 P = 9:R = 7:L = 1 : GOSUB 1250 

440 X = 3: GOSUB 1300 

450 P = 2:R = 15:L = 1: GOSUB 1240 


440 P = 1:R = 20:L = 1: GOSUB 1250 

470 X = 4: GOSUB !300:P = 4;R = 8:L = 20: GOSUB 1240 

480 X = 5: GOSUB 1300:P = 1:R = 1:L = 50: GOSUB 1240 

490 X = 4: GOSUB 1300:P = 1:R = 1:L = 30: GOSUB 1240 

500 PRINT *MCHE UNO SCHEltt SEMPLICE PUÒ' SIMULARE* 

510 PRINT *IL CINGUETTIO DI UN UCCELLO.*:X = 7: GOSUB 1300 
:P = 1 :R = 10:L = 1: GOSUB 1240 
520 PRINT *SE SI DESIDERA UN SUONO PIU' NATURALE* 

530 PRINT *E' NECESSARIO INTRODURRE PAUSE CASUALI IN QUES 
TO MODO:*: GOSUB 1280 

540 PRINT *590 FOR N = 1 TO 10: CALL 748.7,* 

550 HTAB 4: PRINT *1,1,1:X = RND (1) ♦ 500: FOR* 

540 HTAB 4: PRINT *0 = 1 TO X: NEXT Q: NEXT N* 

570 FOR N = 1 TO 10: CALL 748,7,1,1,1:X = RND (1) * 440: FOR 
Q = 1 TO X: NEXT Q: NEXT N 

580 GOSUB 1280: PRINT *A VOLTE SPQSTWDO IL SUONO IN SU 0 
IN* 

590 PRINT *GIU' SUL VIDEO SI PUÒ' OTTENERE UNA P1C-*; 

400 PRINT 'COLA MA IMPORTANTE DIFFERENZA NEL SUONO.*:: GOSUB 
12801 

410 PRINT *C0S1' PER LA GRtfttTA IN ARRIVO ABBIAMO* 

420 PRINT ‘USATO QUESTO.":X = 8: GOSUB 1300 

430 P = 2:R = 1:L = 8: GOSUB 1240 

440 PRINT * PER ALCUNI SUONI E' MENO EVIDENTE COME* 

450 PRINT 'PREDISPORLI. PROCEDERE PER TENTATIVI* 

440 PRINT 'ASSUME UNA GRANDE IMPORTANZA.*: GOSUB 1280 
470 PRINT "PER ESEMPIO, AVRESTE Itti INttGlMTO CHE* 

480 PRINT *L'0SCILL0GRAM1A 01 UM MITRAGLIATRICE* 

490 PRINT "AVESSE QUESTO ASPETTO?*:X = 9: GOSUB 1300 

700 P = 3:R = 40:L = 4: GOSUB 1240 

710 PRINT 'ALTRI SUONI POSSONO ESSERE SEMPLICI Itt* 

720 PRINT ‘RICHIEDERE INNOVAZIONI NELL'ESECUZIONE* 

730 PRINT 'PERCHE' IL LORO SUONO SIA GIUSTO.*: GOSUB 1280 
740 X = 10: GOSUB 1300: PRINT ‘PER ESEMPIO QUESTO.* 

750 PRINT * LE TECNICHE ORDINARIE NON DANNO NULLA DI*: 

740 PRINT 'PARTICOLARMENTE INTERESSANTE.*:P = 5:R = 3:L = 

20: GOSUB 1240 

770 P = 9:R = 30:L = 1: GOSUB 1250 
780 P = 2:R = 20:L = 3: GOSUB 1250 
790 PRINT "MA, IN UN PRQGRAI+IA IN BASIC. SI PUÒ'* 

800 PRINT 'FARE UNA ROUTINE CHE LO RIPETA AD ALTE2-*: 

810 PRINT *ZE DIVERSE, DA 1 A 9, CONSECUTIVAMENTE’*: GOSUB 
1280 

820 PRINT 'INA LINEA COME QUESTA LO REALIZZEREBBE.* 

830 PRINT *890 FOR N = 3 T0 27:X = INT (N /* 

840 HTAB 4: PRINT *3): CALL 748,10,X,1,1 : NEXT* 

850 GOSUB 1280 

840 PRINT *E L'ESECUZIONE DEL SUONO SAREBBE QUESTA.";: GOSUB 
1280 

870 FOR N = 3 TO 27:X = INT (N / 3): CALL 748,10,X,1,1: NEXT 

880 GOSUB 1280: PRINT 'OPPURE SI POTREBBE AGGIUNGERE UN AL 
TRO SUONO E ALCUNI CCmiDÌ FLASH, E SI * 

890 PRINT 'OTTERREBBE QUESTO.*: GOSUB 1280: GOSUB 210: GOSUB 
1280 

900 PRINT *SI PUÒ' RIPRODURRE SEMPLICE MUSICA* 

910 PRINT 'INTRODUCENDOLA NOTA PER NOTA DALLO* 

920 PRINT 'SPARTITO. ECCO UN ESEMPIO.*:X =11: GOSUB 1300: 
GOSUB 1230 

930 P = 2:R = IsL = 30: GOSUB 1240 

940 PRINT "ECCO UNA MELODIA CHE E' PIU' ALTA SULLA* 

Continua 
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ALLA SCOPERTA APPLE MACINTOSH: 

DELL’APPLE Ile IL COMPUTER MAGICO 

di F. WAGNER DOBLER di E.S. CONNOLLY e P. LIEBERMAN 


Il libro, rivolto ad utilizzatori professionali e 
hobbistici, espone in dettaglio le disponibilità e 
le capacità dell'Apple Ile, incluso il suo 
hardware, le sue periferiche, le sue possibilità 
grafiche e l’uso di elaboratori di testo, tabelloni 
elettronici ed altre utilità software. Nel testo è 
compreso un esame delle specifiche hardware 
della macchina, un'analisi della documentazione 
ed una parte dedicata aH'implementazione dei 
linguaggi di programmazione BASIC, LOGO, 
PASCAL, PILOT ed assembler 65C02. 

Il sistema operativo è trattato in dettaglio; cura 
particolare è stata dedicata al confronto fra 
l'Apple Ile e il suo predecessore Apple Ile. 

Il presente libro costituisce un’inestimabile 
guida di riferimento per coloro che si 
propongono di acquistare l’Apple Ile e 
desiderano un obiettivo giudizio delle sue 
capacità, oppure per coloro che, già 
possedendolo, sono interessati ad ulteriori 
informazioni pratiche sulle sue possibili 
applicazioni. 

Pag. 144 
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IL 68000: PRINCIPI 
E PROGRAMMAZIONE 

di LEO J. SCANLON 

Questo libro illustra le caratteristiche del 
microprocessore 68000 e fornisce le nozioni 
fondamentali per la sua corretta 
programmazione 
In particolare vengono illustrati 

- il Cross MacroAssembler della Motorola 

- il set di istruzioni del 68000 con i suoi 14 
modi di indirizzamento 

- le potenti istruzioni aritmetiche per 
moltiplicazione e divisione 

- programmi esemplificativi per la gestione 
delle liste e delle tavole numeriche 
Vengono inoltre illustrate le funzioni dei 64 
piedini del 68000 IC e i supporti periferici 
interfacciabili con esso Conclude il volume una 
breve descrizione degli altri processori 
appartenenti alla famiglia del 68000, con 
particolare riguardo per il 68008, utilizzato nei 
personal computer dell’ultima generazione 
Pag. 256 


L. 20.000 


In un unico volume uno sguardo all'Apple 
Macintosh: lo strumento che farà salire 
vertigginosamente la vostra produttività nel 
lavoro. 

Nel libro troverete: 

- Come si può rendere più efficiente un 
calcolatore da tavolo 

- Come il MacPensiero incrementa la 
produttività 

- Che cosa sta dietro alle MacWindows 

- Come ottenere il massimo dal Mouse 

- L’uso di MacWriter, MacPaint e di tutti gli altri 
MacTooIs 

- Quale altro software è disponibile per il 
Macintosh 

- Come funziona il microprocessore 68000 

- Tutto sui drives per mini-floppy. 

Inoltre imparerete come comunicare con il 
Macintosh e come creare menù che parlino da 
soli. 

Se ne possedete un esemplare o se intendete 
acquistarne uno, questa guida costituirà il 
vostro indispensabile e sapiente amico. 
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Desidero ricevere i libri indicati nella tabella, a mezzo pacco postale, 
al seguente indirizzo: 


LA PRIMA VOLTA 
CON APPLE 

di R. COOK e T. HARTNELL 

Se non avete mai programmato un computer 
prima d’ora e vi piacerebbe imparare in poche 
ore, ecco il libro adatto a voi. Probabilmente già 
disporrete di gran parte, se non di tutto, del 
software che vi serve ma vi sarete anche resi 
conto che è bene saperne un po’ di più, magari 
per far colpo sugli amici, insegnare qualcosa ai 
vostri bambini o creare da soli qualche 
programma per lavoro o per gioco Questo libro 
vi spiega come far tutto ciò in pochissimo 
tempo All’inizio vedremo i pochi comandi che 
servono per lavorare con il disco di sistema, 
cioè per dare il via al computer 
Il tutto avverrà sotto il vostro controllo a partire 
dalle prima pagina del primo capitolo del libro 
Passeremo poi in rassegna i termini più 
importanti per la programmazione e alla fine, 
avrete in mano una piccola raccolta di 
programmi che vi terranno occupati con Apple 
per qualche settimana 
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950 PRINT 'SCALA/:X =12: GOSUB 1300: GOSUB 1230 
960 P = 1:R = 1:L = 85: GOSUB 1240 
9?0 PRINT 'PER CHIAREZZA NON SONO INCLUSI DIESIS E 1 
980 PRINT -BEMOLLE NEL MODO DUE/ 

990 GOSUB 1280 

1000 PRINT -QUESTO PERCHE'' NON SAREBBERO FACILMENTE' 

1010 PRINT “DISTINGUIBILI SUL 

1020 PRINT 'PENTAGRAttlA FORNITO/: GOSUB 1280 

1030 PRINT -COMUNQUE SI PUÒ TENTARE DI AGGIUNGERE' 

1040 PRINT “DIESIS 0 BEMOLLE NEL MODO UNO, MA E" 

1050 PRINT 'NECESSARIO FARLO A ORECCHIO/: GOSUB 1280 
1060 PRINT 'SE AVETE UNA MELODIA LUNGA 0 RIPETITIVA' 

1070 PRINT 'PUÒ DARSI CHE SI DEBBA METTERLA SU DUE' 

1080 PRINT '0 PIU VIDEATE, IN QUESTO MODO;':X = 13: GOSUB 
1300: GOSUB 1230 

1090 P = 5:R = 1:L = 13: GOSUB 1240 

1100 PRINT “LA LUNGHEZZA MEDIA DELLA LINEA DI UNA ' 

1110 PRINT 'NOTA E' QUESTIONE DJ SCELTA. QUI SONO' 

1120 PRINT 'USATE LINEE DI NOTA PIU' LUNGHE/: GOSUB 1280 
1130 PRINT 'ECCO IL SEGUITO DELL 'ILO DEI MARINE',* 

1140 PRINT 'E COME E' IL SUO SUONO QUANDO E' ESEGUI-TO DA 
SOLO/:X =14: GOSUB 1300: GOSUB 1230 
1150 P = 5:R = 1:L = 1: GOSUB 1240: PRINT 'QUANDO SI INTROD 
UCONO NOTE IN ALTO SULLA'; 

1160 PRINT 'SCALA, SONO PROVVISTI TAGLI ADDIZIONALI.* 


1170 HCOLOR= 1: HPLOT 10,48 TO 269,48: HPLOT 10,54 TO 269, 
54: GOSUB 1280 

1180 PRINT 'USANDO QUESTE TECNICHE, E QUALSIASI TEC-NICA'; 
1190 PRINT ' PERSONALE, SI POSSONO CREARE UNA' 

1200 PRINT 'GRANDE VARI ETÀ'SUONI.' 

1210 CALL 768,13.5,2,13: CALL 768,14,5,1,13: FOR N = 1 TO 
450: NEXT : DALL 768,13.5,1,13 
1220 : GOSUB 1280: TEXT : HOME : END 
1230 HCGLQR= 1: FOR N = 0 TO 4: HPLOT 10,Y(N) TO 269,Y(N): 

NEXT : HCOLOR= 3: RETURN 
1240 GOSUB 1280: GOTO 1260 
1250 HOME : VTAB 21 

1260 HTAB 10: PRINT 'CALL 768,'X','P','R','L: CALL 768,X,P 
,R,L: GOSUB 1280: RETURN 
1270 END 

1280 VTAB 24: HTAB 7: PRINT '«RETURN PER CONTINUARE» 

GET A$: IF ASC <A$> < ) 13 THEN 1280 
1290 HOME : VTAB 21: RETURN 

1300 HGR : HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 279,159 TO 0,1 
59 TO 0,0 

1310 SNUM = X.’TNUM = PEEK (STADD 4 SNUM * 256 - 256) 

1320 FOR N = 1 TO TNUM.-CX = Z ♦ N:Q = PEEK (STADD * SNUM * 
256 - 256 4 N):CY = Z ♦ Q / 2: 1F Q > 0 THEN HPLOT CX 
«CY 

1330 ? NEXT : RETURN 
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zio del file di suoni che esso crea. Ciò 
significa che se le modifiche fatte dal¬ 
l’utente aumentano considerevolmen¬ 
te la lunghezzza del programma, è 
probabile che si debbano fare per pri¬ 
ma cosa queste modifiche: 

1. Nella linea 210 del SINTETIZZA¬ 
TORE cambiare il valore di STADD 
in 28672 

2. Nel listato del LETTORE SUONI 
cambiare l’indirizzo $315 in $70 

Questi cambiamenti daranno più 
spazio per fare modifiche, ma ridur¬ 
ranno al tempo stesso a 34 il numero 


dei suoni che si possono avere in una 
tavola dei suoni. La tavola dei suoni 
sarà adesso costruita a $7000 anziché a 
$6400. 

Una modifica che volendo si può 
provare riguarda la possibilità di intro¬ 
durre note diesis e bemolle per la sin¬ 
tesi musicale. In tal caso sarebbe ne¬ 
cessario qualche metodo per distin¬ 
guerle dalle note naturali, a evitare la 
confusione. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
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mEmcm informatico srl 

v. Togliatti 4 56030 Perignono Pi 

DISTBIBUISCE ALL INGROSSO 
IN TUTTA ITALIA 


materiali pronti o magazzino 


Macintosh ...e 

tonto software in italiano o prezzi 
unici e irripetibili. 

Apple // 

Peri feri che .. 

Schede aggiuntiue ... 
Compat i b i I i <mode in itoly > 
alcuni esempi : 

compatitale Ile 635.000 

disk-drive slim sokota 325.000 
doppio drive "duodisk" 865.000 
mouse completo 199.000 

stampante 80 col. I.V. 830.000 
super serial card e cavo 135.000 
doppio controller cord 66.000 
porollel card standard 66.000 
scheda 80 col.+ 64 k 166 000 
scheda Z-80 xCP/M 79 .000 
longuoge cord 16 k 76.000 

Hord-disk 5 mb. 1.990.000 
Tatto con garanzia un anno 

Consegno immediato ovunq ue 

SOFTWARE x Apple 
A prezzi estremomente bossi sono 
disponibili oltre 150 pakage di alto 
affidabilità, tutti in sorgente , con 
allegato il manuole completo d'uso. 


FLOPPV-PISK 


Tutta la gamma Uerbatim 
(verex e dataiife) offerti 
a prezzi imbattibili anche 
per piccoli quantitativi. 


listino completo e dettagliato può’ 
essere richiesto inviondo 3.000 
lire in francobolli oppure ordinando 
almeno un articolo in contrassegno 

Per dettagli tecnici urgenti : 
TELEFONARE allo 0587-616084 


MATERIALI FORNITI CON 
GARANZIA 

SODDISFATTI 0 RIMBORSATI 

con noi i tuoi investimenti 
sor anno sempre più protetti. 

I prezzi non comprendono l’i.v.o. 
Apple. Duodisk. Macintosh. sono 
marchi di appiè computer ine. 


41 

























Mille programmi 



Stai per acquistare un personal 
computer Apple? 

Vorrai sapere che cosa puoi farci. 
Questo volume è un aiuto indispen¬ 
sabile, una guida ragionata e com¬ 
pleta di tutti i programmi disponibili 
in Italia. Prima di fare il tuo acquisto 
non puoi non consultarlo, perché 
solo se avrai a disposizione il pro¬ 
gramma o i programmi che ti inte¬ 
ressano la tua scelta non ti lascerà 
deluso. 


per te 


Hai appena acquistato un perso¬ 
nal computer Apple? 

Senza questa raccolta di program¬ 
mi non potrai mai sapere quali e 
quanti utilizzi potrai farne. 


Possiedi già da tempo un perso¬ 
nal computer Apple? 

Allora non c’è bisogno di dirti quan¬ 
to può essere prezioso questo libro: 
sai già che il tuo computer, senza 
programmi, è come un’auto senza 
benzina. E poiché non c’è limite alla 
fantasia e all’inventiva, consultando 
questa guida scoprirai utilizzi im¬ 
pensati per il tuo personal. Utilizzi 
che ti permetteranno nel lavoro, nel 
tempo libero, nel gioco o nello stu¬ 
dio, di essere sempre il più aggior¬ 
nato, il più organizzato, il più soddi¬ 
sfatto... 


Ordinale subito. 
Sarai fra i primi 
a riceverle. 


Ritagliare, compilare e 
spedire a: Editronica Srl, 
Corso Monforte 39, 

20122 Milano. 


Le Pagine del Software 
sono un supplemento 
semestrale di Applicando, 
il mensile peri personal 
computer Apple. 
Acquistarle singolarmente 
costa 12.000 lire. 

Per chi si abbona ad 
Applicando sono in regalo. 


Desidero ricevere, senza aggravio di spese postali, Le Pagine del Software con la 
seguente formula (segnare la casella di proprio interesse) 

□ 12.000 lire per ricevere l'edizione Autunno 1984 de Le Pagine del Software 

n 50.000 lire per ricevere 10 numeri di Applicando e in regalo l’edizione Autunno 1984 
de Le pagine del Software 


COGNOME E NOME 
VIA 

CAP CITTA 

□ Allego assegno non trasferibile di L 

□ Allego ricevuta di versamento di L 
Corso Monlorte 39. 20122 Milano 

□ Pago fin d ora con la mia carta di credito Bankamericard N 

Data Firma 


N 

PR0V 

intestato a Editronica Srl 
sul CC postale N 19740208 intestato a Editronica Srl. 


scadenza 








Senza aspettare l’estate, si può fare una partita a 
volano anche col computer. Due giocatori, armati di 
racchetta, corrono avanti e indietro per il terreno di 
gioco, comandati dalle paddle. L’effetto visivo è 
davvero buono, grazie anche all’alta risoluzione. 


•I DOS 3.3 HfcUI! 
ProDOS '♦«Il 
APPLE //( -*111' 
APPLE //t -«Illi 


A volano con l’Apple 



D opo aver dato il Kl'N, si ricevo¬ 
no le istruzioni e si è invitati a 
introdurre i nomi dei giocatori. Il gio¬ 
catore 1 usa la paddle (0) e controlla 
l'uomo all’estrema sinistra, mentre il 
giocatore 2 usa la paddle ( 1 ) e control¬ 
la l'uomo all’estrema destra. 

Il computer chiederà a uno dei gio¬ 
catori di scegliere nel lancio della mo¬ 
netina, che stabilirà a chi tocca il pri¬ 
llili servizio. Il battitore viene annuii- 




43 






ciato da un messaggio e da un bip. Poi 
basta premere semplicemente il pul¬ 
sante della paddle per servire. 

Per rispondere basta mettersi in li¬ 
nea con il volano e premere il pulsante 
della paddle (tempestività e precisione 
sono tassative). 

Il programma cerca di simulare il 
volo del volano e ci arriva molto vici¬ 
no. Spesso il volano si arresterà nel 
mezzo del volo e scenderà rapidamen¬ 
te. In altre occasioni salirà tanto in alto 


da scomparire nell’orlo superiore del¬ 
lo schermo (ma non c’è da preoccupar¬ 
si, riapparirà). 

I punti possono essere segnati solo 
dal giocatore che sta servendo. Questi 
può segnare quando il suo avversario 
commette uno dei due errori possibili: 
(1) lasciar cadere a terra il volano; (2) 
mandare il volano fuori delle zone di 
gioco. Quando a commettere questi 
errori è il battitore, il servizio passa al 
suo avversario. 


Come digitare 
il programma 

Ci sono due listati da introdurre e 
salvare. La battitura del programma in 
Applesoft è semplice. Basta digitare il 
listato e salvarlo su dischetto battendo 
SA VE VOLANO. 

I dati in linguaggio macchina devo¬ 
no essere introdotti a partire da $4000 
esadecimale (16384 decimale). Com- 



USTATO 1 

* 

1 REM *********#***##***<*** 

2 REM * VOLANO * 

3 REM « 01 STEVEN WONG * 

4 REM * COPYRIGHT (0 1985 * 

5 REM * BY APPLICANDO 4 * 

6 REM * MICROSPARC, INC * 

7 REM a********************* 

10 LOMEM: 17200: G0SUB 7000: GOTO 5000 
20 1F TI < >0 THEN 4 T50.1 
30 IF PEEK (PO) > IM THEN FI = 1 

40 IF PEEK (PI) ) IM THEN F2 = 1 

50 RETURN 

100 CC = : IF CY > 0 THEN CC = 10 
110 XB = XB ♦ M * CX:YB = YB + CC * CY: GOSUB 20 
120 XB = INT <XB):YB = INT (YB): IF HF = 1 THEN 160 
130 IF XB ( 15 AND YB < 165 THEN WF = 1 :BF = 2: GOTO 3000 

140 GOSUB 20: IF XB ( 0 OR YB ) 181 THEN WF = 2:BF = 1: GOTO 

3000 

150 GOTO 180 

160 IF XB ) 263 AND YB < 165 THEN WF = 2:BF = 3: GOTO 3000 

170 GOSUB 20: IF XB ) 279 OR YB ) 181 THEN WF = IsBF = 4: GOTO 

3000 

180 IF 01 THEN IF XB > 139 AND HF = 1 THEN CY = ABS (CY): 

M = RND (1) » 6 ♦ 4:01 = 0: IF YB < 135 THEN YB = YB * 

( RND (1) * 5 4 15) 

190 GOSUB 20: IF 02 THEN IF XB < 139 AND HF = 2 THEN CY = 

ABS (CY):M = RND (1) * 6 4 4:02 = 0: IF YB < 135 THEN 
YB = YB + < RND (1) * 5 ♦ 15) 

200 IF YB < 54 THEN YB = 50: HC0L0R= 0: DRAW 7 AT B1,82:XB = 
139: GOTO 600 


210 HCQL0R= 3: DRAW 7 AT XB.YB: GOSUB 20 

220 HC0L0R= 0: DRAW 7 AT 61,B2:B1 = XB:B2 = YB 

600 TI = 0:X = PDL (0): IF X > 177 THEN XL = XL + 8:T1 = 1: 

IF XL = > 120 THEN XL = 12Q:T1 = 0 

610 GOSUB 20: IF X < 77 THEN XL = XL - 8:T1 = - 1: IF XL < 

= 8 THEN XL = 8:T1 = 0 
620 IF XL = XI THEN 670 

630 X = XI 4 (4 * * Tl): HC0L0R= 0: DRAW 1 AT XI,YL 

640 HCGLQR= 3: DRAW 2 AT X.YL: GOSUB 20 

650 HC0L0R= 0: DRAW 2 AT X,YL 

660 HC0L0R= 3: DRAW 1 AT XL,YL:X1 = XL 

670 IF XB > 139 THEN 800 

680 GOSUB 20: IF FI THEN GOSUB 1000 

800 Tl = 0:X = PDL (1): IF X > 167 THEN XR = XR ♦ 8:T1 = 1: 

IF XR = > 270 THEN XR = 270:T1 = 0 
810 GOSUB 20: IF X ( 87 THEN XR = XR - 8:T1 = - 1: IF XR < 

= 158 THEN XR = 158:T1 = 0 
820 IF XR = X2 THEN 870 

830 X = X2 ♦ <4 * Tl): HC0L0R= 0: DRAW 4 AT X2,YL 

840 HCQL0R= 3: DRAW 5 AT X,YL: GOSUB 20 

850 HCQL0R= 0: DRAW 5 AT X.YL 

860 HC0LQR= 3: DRAW 4 AT Xft,YL:X2 = XR 

870 IF XB < 139 THEN 100 

880 GOSUB 20: IF F2 THEN GOSUB 1500 

890 GOTO 100 

1000 FI = 0:X = 0: HC0L0R= 0: DRAW 1 AT XL.YL 

1010 HC0L0R= 3: DRAW 3 AT XL,YL: FOR L = 70 TO 40 STEP - 1 

0: & TL.3: NEXT 
1020 IF YB < 100 THEN 1050 
1030 XT = XL ♦ 10 :YT = YL 

1040 IF XB - XT < 15 AND XB - XT > - 5 THEN IF (YT - YB) < 
10 THEN HF = 1:X = 1 
1050 HC0L0R= 0: DRAW 3 AT XL.YL 

1060 HC0L0R= 3: DRAW 1 AT XL,YL 

1070 IF X THEN 2030 
1080 RETURN 

1500 F2 = 0:X = 0: HCQL0R= 0: DRAW 4 AT XR,YR 

1510 HC0L0R= 3: DRAW 6 AT XR.YR: FOR L = 70 TO 40 STEP - 1 

0: 4 TL.3: NEXT 
1520 IF YB < 100 THEN 1550 
1530 LO = XR - 10:VT = YR 

1540 IF LO - XB < 15 AND UT - XB > - 5 THEN IF ABS (VT - 
YB) < 10 THEN HF = 2:X = 1 
1550 HC0L0R= 0: DRAW 6 AT XR,YR 

1560 HC0L0R= 3: DRAW 4 AT XR.YR 

1570 IF X THEN 2000 
1580 RETURN 

2000 CY = ABS (CY) * - 1:CX = ABS (CX) « - 1:02= 1 
2010 IF XB < 191 THEN GOSUB 2090 
2020 GOTO 2050 

2030 CY = ABS (CY) * - 1 :CX = ABS (CX):01 = 1 

2040 IF XB > 87 THEN GOSUB 2090 

2050 M = RND (1) * 6 ♦ 6 

2060 YB = RND (1) * 40 ♦ 100 

2070 ti T RND (1) * 190 ♦ 50,10 

2080 RETURN 

2090 IF RND (1) < .5 THEN YB = RND (1) « 100 4 40:M = 30: 
RETURN 

2100 YB = RND (1) * 120 4 60:M = 20: RETURN 
3000 0N BF GOTO 3010.3040,3050.3060 
3010 IF XB < =8 AND YB ) 181 THEN Al = 1:A2 = 182: GOTO 3 
090 

3020 IF XB = >8 AND YB > 181 THEN Al = XB:A2 = 182: GOTO 
3090 

3040 Al = 1:A2 = YB: GOTO 3090 
3050 Al = 277:A2 = YB: GOTO 3090 
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3060 1F XB = > 270 AND YB > 181 THEN Al = 277:A2 = 182: GOTO 
3090 

3070 1F XB < = 270 AND YB > 181 THEN Al = XB:A2 = 182: GOTO 
3090 

3080 Al = 277:A2 = YB 
3090 HCOLOR= 0: DRAW 7 AT B1,B2 

3100 HCOLQR= 3: DRAM 7 AT Al ,A2 

3110 FOR I = 1 TO 50: 4 T100.2: NEXT 

3120 FOR 1 = 1 TO 500: NEXT I 

3130 HCOLOR= 0: DRAU 7 AT A1.A2 
3140 DRAU 1 AT XL,YL: DRAW 4 AT XR,YL 
3150 HCOLOR= 4:PP = 60: GOSUB 5070:PP = 216: GOSUB 5070 

3160 1F SF = 1 AND UF = 1 THEN SI = SI + 1:XF = 1 : GOTO 400 

0 

3170 1F SF = 1 AND UF = 2 THEN SF = 2: GOTO 4000 

3180 IF SF = 2 AND UF = 2 THEN S2 = S2 + 1:XF = 1 : GOTO 400 

0 

3190 IF SF = 2 AND UF = 1 THEN SF = 1 
4000 IF NOT XF THEN 5000 
4010 I = 37:J = SI: IF UF = 2 THEN I = 243:J = S2 

4020 X = 41: IF J < ) 10 THEN 4050 

4030 HCOLOR= 4: DRAU 8 AT 1 - 10,X: DRAU 17 AT I.X 

4040 HCOLOR= 5: DRAU 9 AT I - 10.X:J = 8: GOTO 4070 

4050 IF J = > 10 THEN J = J - 1Ò 

4060 J = J + 8: HC0LQR= 4: DRAU J - 1 AT I ,X 

4070 HCOLOR= 5: DRAU J AT I.X: 4 T40,5:UF = 0:XF = 0 
4080 IF SI = 15 OR S2 = 15 THEN 8500 
5000 GOSUB 8000: FOR PA = 1 TO 500: NEXT PA 
5010 4 T200.10: 4 T50.20: IF SF = 2 THEf4 5030 

5020 XB = 10:CX = 1:CY = - 1:HF = 1sPP = 60:P4 = 1 :P5 = 8:F 

1 = 1:01 = 1: GOTO 5040 

5030 XB = 268:CX = - 1 :CY = - 1:HF = 2:PP = 216:P4 = 4:P5 = 

270:F2 = 1:02 = 1 

5040 N = RND (1) * 6 ♦ 4:B1 = 140:B2 = 80 

5050 YB = RND (1) *4+168 

5060 UK = - 16288 + SF:F3 = 0: GOTO 5100 

5070 DRAU 26 AT PP.38: RETURN 

5080 IF NOT F3 THEN RETURN 

5090 POP : GOTO 100 

5100 FOR J = 4 TO 5: HCOLOR= J: GOSUB 5070 

5110 K = 0: IF J = 5 THEN K = 3 

5120 HCOLOR= K 

5130 DRAU P4 AT P5.171: FOR I = 1 TO 40 + 20 * J 

5140 IF PEEK (UK) ) IN THEN F3 = 1 

5150 NEXT : NEXT : GOSUB 5080 
5160 4 T50,4: GOTO 5100 

7000 TEXT : HOME : FOR J = 6 TO 12 STEP 6: VTAB J: HTAB 7: FOR 
I = 1 TO 28: PRINT "*";: NEXT I,J 
7010 FOR I = 7 TO 11: VTAB 1 : HTAB 6: PRINT "*";: HTAB 35: PRINT 
, * B : NEXT 

7020 VTAB 8: HTAB 11: PRINT ' VOLANO 1 : VTAB 10: 

HTAB 14: PRINT "DI STEVEN UQNG" : VTAB 22: PRINT '(019 
85 BY APPLICANDO 4 MICROSPARC.INC." 

7030 KB = - 16384:KR = - 16368:P0 = - 16287:P1 = - 16286 
:IN = 127 

7040 RO = 255 : RI = 255:P = 140:PL = 164 

7100 IF PEEK (768) = 201 AND PEEK (803) = 170 THEN 7160 

7110 m = •201.084,208.015,032.177,000.032.248,230,138.072. 

032,183,000,201,044.240,003,076,201,222,032,177,00(5,032 
,248,230,104.134,003,134,001,133,000 1 
7120 FORI = 1 TO 35: POKE 1 + 767, VAL ( MIO* <MU*,I * 4 - 

3.1 * 4 - D): NEXT 

7130 MlH = •170.160.001.132,002,173.048,192.136,208.004.198, 

001.240,007.202,208,246,166,000,208,239,165,003,133,001 
,198,002,208.241,096* 

7140 FOR I = 1 TO 33: POKE I + 802, VAL ( MID* <MU*,I * 4 - 

3.1 * 4 - D): NEXT 

7350 POKE 1013,76: POKE 1014,0: POKE 1015,3 
7160 IF PEEK >233) = 64 AND PEEK (16384) = 26 THEN 7180 
7170 PRINT CHR* (4)'BL0AD BADSHAPES": POKE 232,0: POKE 233 
,64 

7180 VTAB 20: HTAB 4: IWERSE : PRINT •> PREMI UN TASTO PER 
COMINCIARE C: NQRMAL 
7190 IF PEEK (KB) < = 1M THEN 7190 
7200 POKE KR,0: HOME 

7210 VTAB 7: CALL - 958: PRIOT ‘NOME DEL PRIMO GIOCATORE? 

•;: INPUT "";N1*: IF NI* = 8 " THEN 7210 
7220 NI* = LEFT* (NI*,7) 

7230 VTAB 10: CALL - 958: PRINT ‘NOME DEL SECONDO GIOCATOR 
E? INPUT "" :N2*: IF N2$ = •• THEN 7230 
7240 N2* = LEFT* (N2*,7): IF NI* = N2* THEN 4 T50,50: GOTO 
7230 

7250 VTAB 13: CALL - 958: PRINT "IN CHE AWO S1MO (XXXX)? 

•;: INPUT ,B ;YR$: IF YR* = BB THEN 7250 


7260 X = VAL ( LEFT* <YR*.4)) 

7270 IF X < 1982 OR X ) 9?99 THEN X = 1983 
7280 YR* = STRI (X):HF* = N2*:TF = 2 
7290 IF RND (1) ( .5 THEN HF* = N1*:TF = 1 
7300 VTAB 16: PRINT HF*" (T)ESTA 0 (C)ROCE’ ": 

7310 GET AN*: IF ANI < > B T B AND AN* < > "C* THEN 7310 

7320 PRINT AN*: IF AN* = B T B THEN RF = 1 

7330 IF AN* = B C B THEN RF = 2 

7340 VTAB 16: HTAB 32: PRINT CHR* (91)" ]■• 

7350 FOR I = 1 TO 30:RN = INT ( Rf4D (1) * 2 + 1) 

7360 VTAB 16: HTAB 33 

7370 IF RN = 1 THEN PRINT "TESTA! 8 ; 

7380 IF RN = 2 THEN PRINT "CROCE"; 

7390 4 T2 * 1.2: NEXT 
7400 IF TF = i AND RF < > RN THEN SF = 2 

7410 IF TF = 1 AND RF = RN THEN SF = 1 

7420 IF TF = 2 AND RF < ) RN THEN SF = 1 

7430 IF TF = 2 AND RF = RN THEN SF = 2 

7440 FOR PA = 10 TO 200: 4 TPA,2: 4 T255 - PA,3: NEXT : FOR 
PA = 1 TO 250: NEXT PA 
7500 HOME : VTAB 4 

7510 PRINT "BENVENUTI ALLA FINALE DEL "YR* 

7520 FLASH : PRINT "DEL TORNEO DI NIBBLETON": NQRMAL : PRINT 

7530 PRINT : PRINT Nl$\ PRENDERÀ' IL CAMPO DI": PRINT "SIN 
ISTRA E USERÀ' LA PADDLE 0." 

7540 PRINT : PRINT N2V. PRENDERÀ' IL CtflPO DI": PRINT "DES 
TRA E USERÀ' LA PADDLE 1." 

7550 N$ = Nl$: IF SF = 2 THEN N$ = N2$ 

7560 PRINT : PRINT NI" SERVIRÀ' PER PRIMO. . ." 

7570 PRINT : PRINT "BUONA FORTUNA E NON DIMENTICARTI DI 
TENERE GLI OCCHI SUL VOLMO" 

7580 VTAB 20: PRINT "PREMI IL PULSAhfTE DELLA PADDLE PER 
COMINCIARE." 

7590 I = RND ( PEEK (78) + PEEK (79) * I>si = RND ( - I) 

7600 IF PEEK (PO) ( = IM AND PEEK (PI) < = IM THEN 7590 

7630 HOME : HGR : POKE - 16302,0: SCALE= 1: ROT= 0 
7640 GOSUB 9000: RETURN 

8000 SCALE= 1: ROT= 0: HCOLOR= 1 : FOR I = 185 TO 191: HPLOT 

1,1 TO 278,1: NEXT 

8010 RCOLQR= 3: FOR I = 138 TO 141: HPLOT 1,160 TO 1,188: NEXT 


8020 YL = 171:YR = YL:X1 = 8:XL = X1:X2 = 270:XR = X2 
8030 DRAU 1 AT XI,YL: DRAU 4 AT X2,YR 
8050 IF MF = 0 THEN 4 T96,40: 4 T72.40: 4 T57,40: 4 T48,80 
: 4 T57,40: 4 T48,160:MF = 1 
8060 RETURN 

8500 POKE - 16301,0: HOME : IF S2 = 15 THEN 8520 
8510 UN* = Nl*:LO* = N2*:S5 = SI:S6 = S2: GOTO 8530 

8520 UN* = N2*:L0* = N1*:S5 = S2:S6 = SI 

8530 FOR I = 10 TO 100 STEP 5: 4 TUO - 1,3: 4 T50,3: 4 T10 
0+1,3: NEXT 

8540 'VTAB 21: PRINT "IL VINCITORE DEL TORNEO E' "UN*"" 

8550 PRINT "CON IL PUNTEGGIO DI "S5" A "Só"" 

8560 VTAB 24: HTAB 1: PRINT "VOLETE GIOCARE ANCORA’ (S/N)"; 

8570 GET AN*: IF m = "N" THEN 9999 
8580 IF AN* < > "S" THEN 8560 
8590 RUN 

9000 HCOLOR= 2: FOR I = 2 TO 48: HPLOT 10,1 TO 270,1: NEXT 

9010 HCOLOR= 0: FOR I = 7 TO 23: HPLOT 100,1 TO 178,1: NEXT 

9020 FOR 1 = 28 TO 44: HPLOT 19,1 TO 70,1: HPLOT 208,1 TO 2 

59,1 

9030 HPLOT 90.1 TO 188,1: NEXT 
9040 HCOLOR= 5: DRAU 8 AT 27.41 : DRAU 8 AT 37,41 
9050 DRAU 8 AT 233,41: DRAU 8 AT 243,41 
9060 FOR I = 1 TO 4: DRAU VAL ( MID* <YR* f 1,1)) + 8 AT 111 
+ 1 * 10.20: NEXT 

9070 HCOLQR= 7: DRAU 25 AT 59,38: DRAU 25 AT 215,38 
9080 HCQLQR= 3 

9090 FOR I = 1 TO 9: READ J,K 
9100 DRAU J AT K.42: NEXT 
9110 DATA 18,102,19,112,20,117,20,127 
9120 DATA 21.137.22,143.23,152.24,160.18.169 
9130 HCOLOR= 6: HPLOT 271,1 TO 9,1 TO 9,49 TO 271,49 TO 271 
,1 

9140 HPLOT 271,0 TO 8.0 TO 8,50 TO 271,50 

9150 HPLOT 7,0 TO 7,50 

9160 RETURN 

9999 TEXT : HOME : END 
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Listato 2 



Figura 1. Dato il RUN, sullo schermo compaiono il campo da gioco, i due 
sfidanti e il tabellone segnapunti. 



Figura 2. Effettuato il sorteggio, il giocatore privilegiato dalla fortuna 
esegue il servizio. 



Figura 3.1 due sfidanti sono nel bel mezzo della partita: quello di sinistra 
ha lanciato e sta a quello di destra a dover rispondere. 
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pletata la battitura salvate i dati bat- X 5000-5160 Invitai giocatori a servire, 
tendo BSAVE BADSHAPE- X7000 - 7040 Pagina d’intestazione. Ini- 
S,A16384,L786 RETURN. -^zializza le variabili. 

Per avere altre istruzioni o introdur- VlOO-7190 POKE della routine sono¬ 
re direttamente in memoria il codice ra. Carica la tavola delle figure, 
macchina, fate riferimento all’articolo / N 7200-7440 Riceve i nomi dei giocato- 
"Per chi comincia". ri. Chiede l’anno. Sceglie il battitore. 

/\ 7500-7640 Presentazione del gioco. 

. Pulisce lo schermo Hi—Res. 

Le routine 


V0020-0050 Legge i pulsanti delle 
paddle. 

-,£0100-0220 Logica di movimento del 
volano. 

y 0600-0680 Spostamento del giocatore 
di sinistra. 

y 0800-0890 Spostamento del giocatore 
di destra. Ricomincia il loop. 

-^1000-1080 Movimento della racchet¬ 
ta del giocatore di sinistra. Controlla 
se il volano è stato colpito. 

X'1500—1580 Movimento della racchet¬ 
ta del giocatore di destra. Controlla se 
il volano è stato colpito. 

X2000-2100 Inverte la direzione del vo¬ 
lano. 

''X 3000-3190 Trova la posizione finale 

, del volano. Aggiorna il punteggio. 

À4000—4080 Aggiorna il tabellone digi¬ 
tale del punteggio. 


8000-8060 Traccia il campo. Suona il 
tema d’apertura. 

8500-8590 Abbiamo il vincitore! 
9000-9160 Prepara il tabellone digita¬ 
le del punteggio. 

Per concludere... 

Il pulsante della paddle di un gioca¬ 
tore funzionerà solo quando il volano 
è dalla sua parte del campo. Questo 
soprattutto per accelerare il gioco. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 


1985 by Nibbi e e Applicando 



Il libro si propone di avvicinare 
professionisti e hobbisti del 
computer al calcolo automati¬ 
co e alla simulazione di feno¬ 
meni e esercizi di meccanica 
e elettrotecnica a mezzo di al¬ 
goritmi in Basic. 

234 pagine, 20.000 lire. 

Come effettuare il “debug” os¬ 
sia la messa a punto dei pro¬ 
grammi e la ricerca e corre¬ 
zione degli errori. 

144 pagine, 15.000 lire. 


Chimica con il 
pocket computer 



Scritto da un chimico, questo 
libro non si prefigge lo scopo 
di insegnare a programmare, 
ma di offrire occasioni (tratte 
dal campo della chimica) di 
programmazione, a partire dai 
listati riportati e illustrati. 

114 pagine, 14.000 lire. 


SIMULAZIONI 
DI FISICA IN BASIC 


Il “debug” nei 
personal computer 



Routine d’aiuto alla soluzione di 
problemi che si incontrano in 
fase di progettazione. 

138 pagine, 14.000 lire. 



ESPERIMENTI 

INTELLIGENZA 


ARTIFICIALE 

V. . s i 

JOHN KRUTCH 


L'INTELLIGENZA ARTIFICIALE STUDIA LE 
TECNICHE PER RENDERE 1 COMPUTER ! 

PIU INTELLIGENTI. 

QUESTO LIBRO INTRODUCE Al PRINCIPALI 

TEMI DELL INTELLIGENZA ARTIFICIALE 
(SOLUZIONE LOGICA DI PROBLEMI 

LINGUAGGI NATURALI. PROGRAMMAZIONE 
AUTOMATICA. RICONOSCIMENTO 

PROGRAMMI IN BASIC 


ftMatew ilei pervns (amputer 

mi 


Introduzione ai principali temi 
delPintelligenza artificiale me¬ 
diante semplici programmi in 
Basic. 136 pagine, 10.000 lire. 



L 


Pagherò al postino il prezzo indicato + 1.000 lire per contributo spese postali 
□ Desidero solo ricevere il vostro catalogo generale 
Ritagliate e spedite a: 

gruppo editoriale muzzio - via makallè 73 - 35138 padova 
nome.cognome. 

_c_a £. .__città_. .£. ■_ 1 _. ■ 
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Che parlava lo si sapeva già. Magari con voce un po’ impostata, 
ma con perfetta intonazione americana. Adesso però Macintosh 
riesce perfino a vedere, aprendo la strada a mille nuove 

possibilità che... 


Magic e MacVision 



L a possibilità di prendere un ogget¬ 
to qualsiasi, di "fotografarne" 
Timmagine per trasferirla sul video del 
Macintosh e poi intervenire come si 
vuole, a livello grafico, per ingrandir¬ 
la, rimpicciolirla, deformarla, aggiun¬ 
gerle o toglierle particolari diventa da 
oggi semplicissimo. Basta una teleca¬ 
mera da videoregistratore e l’apposito 
programma oggi in commercio anche 
in Italia. 

Le applicazioni possibili con questo 
nuovo software sono diverse, nei cam¬ 
pi più disparati. Nella grafica, per 
esempio, diventa possibile avere a vi¬ 
deo Timmagine di qualunque modello 
di abito, oppure un gioiello, o una par¬ 
ticolare acconciatura dei capelli, o un 
particolare meccanico di un qualche 
ingranaggio, per poi eseguire in tempi 
molto ristretti innumerevoli variazio¬ 
ni, alla ricerca di nuove soluzioni. 

In campo scientifico, è invece possi¬ 
bile digitalizzare delle immagini, come 
perfino i modelli di molecole comples¬ 


se, da inserire nelle relazioni scritte. 

Sul lavoro, provate a immaginare 
che aspetto avrebbero le relazioni nel¬ 
le quali fosse possibile, insieme col te¬ 
sto, disporre sulla stessa pagina anche 
dell’immagine di cui si sta parlando. 

Chi si occupa di pubblicità, invece, 
può modificare un’immagine qualun¬ 
que per realizzare layout di campagne 
pubblicitarie o di depliant, oppure 
eseguire il disegno di un particolare 
stand fieristico, con tutta una serie di 
varianti. 

Perfino nel campo della sicurezza 
innumerevoli sono le possibilità di uti¬ 
lizzo: Timmagine di una persona, per 
esempio, potrebbe essere trasmessa, 
via modem, a un altro Macintosh in¬ 
stallato a migliaia di chilometri di di¬ 
stanza. La verifica di una firma può 
avvenire con sicurezza matematica. E 
così via. 

I programmi a disposizione dell’u¬ 
tente per realizzare quanto descritto 
fin qui (ma si tratta solo di pochi esem¬ 


pi, in realtà non esistono limiti alle 
applicazioni possibili) sono diversi. 
Applicando ha scelto per i suoi lettori 
solo due programmi, in quanto tutti gli 
altri, anche se magari di costo più con¬ 
tenuto, non sono professionali e, di 
conseguenza, i risultati che si ottengo¬ 
no lasciano mólto a desiderare. 
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Magic 


Version 1 .0 


Scale L 

Set 1 Off 


• Insert 


Q Delete 


o Stretch 


Qui sopra: ecco come si presenta 
il menù principale di Magic. In aito 
a destra e dal basso in alto: 
l’immagine ' catturata" con la 
telecamera viene trasmessa a 
video e poi modificata a proprio 
piacimento. Oppure (qui a fianco) 
inserita in un documento di 
MacWrite. 


La 

riproduzione 
di un 
quadro o 
il 

particolare 

di una 

banconota 

possono 

essere 

ripresi e 

poi 

modificati. 


ne della messa a fuoco veloce alla revi¬ 
sione di immagini memorizzate in pre¬ 
cedenza. Una selezione di fondini è 
disponibile per le modifiche del caso. 
Un righello di alta precisione permette 
la definizione in scala deH’immagine a 
video e facilita qualunque intervento 
di modifica. 

Naturalmente è possibile salvare 
qualsiasi immagine in un file di Mac¬ 
Paint e modificarla per mezzo di que¬ 
sto programma e poi incorporarla, per 
esempio, in un documento realizzato 
con MacWrite. 

Tra le caratteristiche principali del 
programma, segnaliamo: la possibilità 
di "catturare" immagini a pieno scher¬ 
mo in meno di 36 secondi, messa a 
fuoco veloce sullo schermo del Macin¬ 
tosh a 5 fotogrammi al secondo, la pos¬ 
sibilità di creare immagini con sfondi 


Magic 


L’autorevole rivista americana 
MacWord lo ha definito il migliore in 
assoluto, anche se un po’ complesso da 
usare. L’immagine "catturata" per 
mezzo di una telecamera può essere 
modificata a proprio piacimento usan¬ 
do un menù direttamente controllato 
dal programma, senza cioè dover tra¬ 
sferire l’immagine in un file di Mac¬ 
Paint. Tutti i comandi vengono gestiti 
direttamente col mouse, dalla selezio- 


Hake Pict 


Reuieui 


MacPaint 


Pattern 
Sau I Get 


srmu» Pit t 


Fast Focus 


Full Focus 


Sunc EH) 


Serial fl|B 
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automatici, sovrapposizione "guidata" 
dei fondini, comandi dell’interfaccia 
della telecamera tutti regolabili a mez¬ 
zo mouse, procedura semplificata per 
il trasferimento dell’immagine su 
MacPaint. 

La telecamera, fornita insieme con 
il software, ha invece le seguenti carat¬ 
teristiche principali: risoluzione oriz¬ 
zontale a 550 punti, risoluzione verti¬ 
cale a 700 linee, può usare lenti da 35 
mm con un semplice adattatore, men¬ 
tre la dotazione standard prevede lenti 
da 16 mm f/1.6. 

Prodotto da Spectrum House, Ma¬ 
gic, con interfaccia e telecamera, è im- 



L’immagine emblematica riprodotta 
qui sopra esemplifica perfettamente 
le possibilità di Magic e MacVision : la 
digitalizzazione di una persona, come 
di un oggetto, sul video del computer. 



Uno dei risultati più semplici da 
ottenere: l'immagine viene "inserita" 
in una cornice creata con MacPaint. 


portato da L. Paolini spa, Via Ostien¬ 
se 48, Roma, telefono 06/5755006 e 
costa attorno a 1.300.000 più IVA. 

MacVision 

Nel giudizio di MacWord , questo 
programma segue a ruota Magic. An¬ 
che se meno professionale, è più sem¬ 
plice da usare, infatti viene installato 
direttamente nel programma che poi 
serve a modificare l’immagine "cattu¬ 
rata" per mezzo della telecamera. È 
preferibile usarlo con MacPaint, che 
assicura possibilità di editing maggio¬ 
ri. L’interfaccia è fornita dentro un 
contenitore da allacciare esternamen¬ 
te al computer. Il contenitore è munito 
di due manopole per la regolazione del 
contrasto e della luminosità. 

Prodotto da Koala è importato in 
Italia dalla Telav International, Via L. 
da Vinci 43, Trezzano sul Naviglio 
(Mi), telefono 02/4455741 e costa 
900.000 lire più iva, senza la telecame¬ 
ra. 





Dall’alto in basso: l’immagine 
originale viene scontornata. Se non 
basta, il corpo viene cancellato, la 
testa ruotata di 180 gradi e 
sovrapposta a una semplicissima 
caricatura. Tempo di esecuzione: 5 
minuti. 
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nuova 


MICROLINE 


La scrittura 
evoluta 


Sono trascorsi oltre 5000 anni, la comunicazione si è 
evoluta attraverso i secoli per rispondere alle 
esigenze dei vari periodi. 
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NUOVA SERIE MICROLINE 


Le nuove stampanti \iL sono la risposta alle 
esigenze dei nostri tempi: supersilenziose 
compatte, leggere, continuano la tradizione 
di affidabilità delle stampanti OKI. 


— vn w, 

X'rX U * . 

tS&tiZSftsis? . 


I iL 182 80 colonne, 120 cps 
|iL 192 80 colonne, 160 cps 
|i L193136 colonne, 160 cps 


89Sss£s*Ba.•- 


bidirezionali ottimizzate, stampa qualità 
lettera, grafica alta risoluzione, 
set di caratteri 11 + IBM, 
inseritore automatico di fogli 
singoli (opzionale), menù di 
programmazione esterno, 
carrello regolabile, nastro a 
cartuccia autoincbiostrante ^ 
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... e tutte compatibili 

PC IBM, APPLE MA CINTOSH , 

OLIVETTI , etc. 


Il futuro presente 


Dyneor 


Technitron s.r.l. 

Società del gruppo Dyneer Corporation 
00199 ROMA - Via A. Vivaldi, 9 
Tel. (06) 8395841-2 - 837035-6 - Telex: 680171 TECHRO I 
20094 Assago (Mi) - V.le Milanofiori, Pai. E.2 
Tel. (02) 8242112-3-4-5 - Telex: 341250 TECHMI1 










Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 


Difatti sembrano tutti uguali finché non 
si osserva con attenzione il jacket. Qui 
termina l’uguaglianza. 

La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono... in poche parole si aprono. 

Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. 



Questo può accadere con gli abituali 
sistemi di chiusura ma non con i dischetti 
Memorex che usa un procedimento 
esclusivo chiamato 
“Solid-Seam Bonding”. 


Con questo sistema ogni singolo 
millimetro quadrato dei lembi di tutti i dischi 
Memorex viene sigillato ermeticamente, 
rendendoli più rigidi e più resistenti. 



DISCHETTI MEMOREX 

con lembi completamente 
saldati su tutta 
la superficie. 


È un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di rovinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 

Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche centinaio, 

- ricordate: non tutti i 
dischetti sono uguali... 

Memorex vi mette al 
riparo da qualsiasi 
iqconveniente. 



è importante scegli 

BURROUGHS-MEMOREX S.P.A. 

Divisione Computer Media 
Via Ciro Menotti, 14 Tel. 02/718551 
20129 MILANO MI 



A Burroughs Company 

























Il Brillacomputer 



Applicando regala in questo numero, a tutti i suoi lettori, 
l'utilissimo fazzoletti no per pulire il video e il computer da tutte 

le impurità che a causa dell'elettricità 
elettrostatica si depositano 
sul video esull'involucro esterno 
del vostro personal. 

Facile da usare, il fazzolettino 
è prodotto da Sedagraf sas 
Largo Re Umberto 106, Torino. 
Telefono 0117582343 










Non è facile sfruttare in pieno le qualità grafiche 
dell’Apple, ma con questo programma può riuscirci 
anche il più inesperto. E, una volta memorizzati su 
dischetto, i vostri capolavori... 


DOS 3.3 'idilli 

ProDOS 

«11 1! 

APPLE //e : 

P" 

APPLE //c 

«mi 


In disegno fljl e lode 


L e figure grafiche in alta risoluzio¬ 
ne possono essere visualizzate 
sull’Apple seguendo le istruzioni per 
le tavole delle figure riportate nell’Ap¬ 
plesoft Reference Manual. Purtroppo 
questo sistema per la costruzione delle 
tavole è tedioso e si presta all’errore. 
L’APPLE ILLUSTRATORE per¬ 
mette invece di realizzare rapidamen¬ 
te complesse tavole delle figure da uti¬ 
lizzare nei propri programmi. 

Il programma è diviso in due parti 
principali. La prima sezione, EDI¬ 
TING FILE VETTORI, è usata per 
progettare ed editare singole figure. Il 
set dei vettori che descrivono la figura 
viene salvato su dischetto, e si crea 
così una "biblioteca" su dischetto com¬ 
posta di varie figure. La seconda sezio¬ 
ne, COSTRUIRE TAVOLA FIGU¬ 
RE, mette insieme le figure di questa 
biblioteca in qualsiasi combinazione, a 
formare tavole delle figure complete. 
Se si salva separatamente ogni figura, 
si può poi usarla con facilità in molte 
tavole delle figure, e si elimina così la 
necessità di ridisegnare le figure per 
ogni tavola. 

Comandi principali 

Per spiegare le varie funzioni del- 
l’APPLE ILLUSTRATORE realiz¬ 
ziamo insieme una tipica tavola delle 
figure. Questa tavola sarà il semplice 
logo APPLE. 

Fate partire il programma APPLE 
ILLUSTRATORE e scegliete sul me¬ 
nù EDITING FILE VETTORI. 
Adesso avete l’opportunità di spostare 
il cursore su qualsiasi punto di parten¬ 
za: spostatelo sul lato sinistro dello 
schermo e premete la barra spaziatri¬ 
ce. 

Tenete abbassato il tasto CTRL e 


premete il tasto I. Il blocco sul quale si 
trovava il cursore è ora tracciato e il 
cursore si è spostato in su di un qua¬ 
drato. Il lato destro dello schermo de¬ 
ve mostrare due dot isolati. 

Possiamo tracciare un blocco e spo¬ 
starci in su, a sinistra, a destra o in giù 
tenendo premuto il tasto CTRL e pre¬ 
mendo rispettivamente i tasti I, J, K o 
M. Per spostare il cursore senza trac¬ 
ciare un blocco, premete soltanto il 
tasto di direzione senza tenere premu¬ 
to il tasto CTRL. Così si crea un vetto¬ 
re senza tracciamento. 

Tracciando i blocchi e spostando il 
cursore, abbozzate la figura desidera¬ 
ta per il logo. Questa figura sarà vista 
in alta risoluzione sul lato destro dello 
schermo sia neU’orientamento norma¬ 
le sia girata di 90 gradi. Queste figure 
sono disegnate in bianco; per vedere 
quale aspetto avranno disegnate negli 
altri colori Fli-Res premete il tasto C. 
Questo comando vi permette di vede¬ 
re, in sequenza, a mano a mano che 
schiacciate il tasto C 1, 2, 3, 4 volte, i 
quattro colori di base. 

Premendo C una quinta volta, tor¬ 
nerete al colore bianco. 

Se commettete un errore, potete 
tornare indietro e cancellare un vetto¬ 
re battendo il tasto B. Per cominciare 
da capo con lo schermo pulito, preme¬ 
te il tasto E: verranno cancellati l’inte¬ 
ra figura e i suoi vettori. 

Come ritracciare 
la figura 

Una volta che la figura del logo AP¬ 
PLE è a posto, si potrebbe salvare im¬ 
mediatamente il set di vettori che si è 
tracciato, ma è probabile che ci sia 
nella figura qualche vettore in più, non 
necessario. Dato che ogni due vettori 



Figura 1. Dall’alto in basso. La 
videata iniziale per la creazione di 
un disegno. Il disegno comincia a 
prendere forma. Il risultato finale. 
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APPL C 


Figura 2. Dall’alto in basso. Una 
volta terminato il disegno, è bene 
ritracciarlo per risparmiare 
memoria. È anche possibile 
correggere il disegno facilmente, 
per ottenere il risultato finale voluto. 


APPLE 



si consuma un byte di memoria, è utile 
ridurre al minimo il numero dei vettori 
utilizzati per disegnare una figura. 
Questo permetterà inoltre al program¬ 
ma di disegnare la figura il più rapida¬ 
mente possibile. Per questo tipo di fi¬ 
gura il tracciamento deve incomincia¬ 
re dal punto di inizio. Per fare tutto 
questo possiamo ritracciare la figura 
premendo il tasto R. I vettori della 
figura vengono cancellati e i blocchi 
pieni della figura grande sono sostitui¬ 
ti da blocchi vuoti che forniscono una 
guida su cui ripassare. Spostate il cur¬ 
sore al centro della figura usando i 


tasti I, J, K e M e premete la barra 
spaziatrice. Adesso tracciate la figura, 
copiando sopra i blocchi vuoti per la 
via più breve possibile. 

Opzione vedere 

Per avere un’idea migliore dell’a¬ 
spetto che avrà la figura, premete il 
tasto V per VEDERE la figura. Ades¬ 
so, oltre a controllare il colore, potete 
cambiare la scala e la rotazione della 
figura. Dato il modo in cui l’Apple 
disegna le figure ci sono meno angoli 
di rotazione disponibili ai fattori di 
scala più piccoli. In effetti a scala 1 ci 
sono solo 8 orientamenti possibili. 

Si può anche spostare la figura sullo 
schermo usando i tasti I, J, K e M. 
Tenete premuti questi tasti per avere 
una rudimentale animazione. Usate il 
tasto ESC per tornare alla funzione di 
tracciamento. 

Salvataggio e carica 

Salvate il set di vettori che descrive 
la figura premendo il tasto S. Se usate 
un nome come APPLELOGO, il file 
sarà salvato come VETTORI/AP- 
PLELOGO. Per assicurarsi che il file 
dei vettori è stato salvato, premete il 
tasto D per avere il DOS e controllate 
il catalogo del dischetto premendo il 
tasto C. A questo punto si possono 
anche cancellare i file che non servono 
più, ma si noti che il programma non 
fornisce automaticamente il prefisso 
VETTORI/ usato dalle funzioni SA¬ 
VE figura e LO AD figura. 

Premendo il tasto L si caricherà una 
figura dal dischetto. Oltre a essere vi¬ 
sualizzata in alta risoluzione, la figura 
sarà anche disegnata nelle dimensioni 
ingrandite per l’uso nelle funzioni 
PLOTTING (tracciamento) e RE- 
PLOTTING (ritracciamento). Il trac¬ 
ciamento di questa figura grande avrà 
inizio alla posizione del cursore. Se la 
figura non ci starà, il programma invi¬ 
ta a spostare il cursore in una posizio¬ 
ne diversa e a riprovare. Come sempre 
si può usare la funzione ESC per tor¬ 
nare alla funzione di tracciamento. 

Tornate alla funzione di traccia¬ 
mento e cancellate lo schermo. Ripe¬ 
tete i passi precedenti per disegnare e 
salvare un’altra figura con il nome di 
FIGURA 2. 

Tavola delle figure 

Abbiamo adesso due figure salvate 
sul dischetto da combinare per fare 
una tavola delle figure. Premete il ta¬ 
sto ESC per uscire dalla funzione 


TRACCIAMENTO, tornate al menù 
principale e scegliete COSTRUIRE 
TAVOLA FIGURE premendo il ta¬ 
sto B. 

Il programma chiederà i nomi delle 
figure da inserire nella tavola. Battete 
APPLELOGO e RETURN e quel file 
di vettori sarà caricato dal dischetto. Il 
successivo file di vettori (FIGURA 2) 
che verrà specificato sarà aggiunto alla 
fine della tavola. Per controllare il ca¬ 
talogo del dischetto battete C e preme¬ 
te RETURN quando viene chiesto un 
nome. 

Una volta caricate le due figure, 
battete END e premete RETURN. Il 
programma costruirà l’intestazione 
della tavola. Sarà visualizzata la lun¬ 
ghezza totale e poi verrà chiesto un 
nome con il quale salvare la tavola. A 
meno che non decidiate di costruire 
un’altra tavola, tornate al menù prin¬ 
cipale. 

Per controllare la tavola scegliete 
VEDERE TAVOLA FIGURE, sul 
menù principale, e introducete il no¬ 
me della propria tavola quando viene 
chiesto. Si può scegliere dalla tavola 
qualsiasi figura e visualizzarla avendo 
il controllo della scala, del colore e 
della rotazione nella stessa maniera 
dell’opzione VEDERE della routine 
di EDITING FILE VETTORI. 

Caricamento 
del programma 

Per usare il programma si deve di¬ 
sporre, nella configurazione minima, 
di un Apple II con 48K e un disk drive. 
Date le dimensioni del programma lo 
si deve caricare oltre la prima pagina 
grafica in alta risoluzione. Questo vie¬ 
ne fatto con la prima linea del pro¬ 
gramma in Applesoft del listato 1. 

Copiate per prima cosa il program¬ 
ma in Applesoft e salvatelo con il no¬ 
me APPLE ILLUSTRATORE. Poi 
entrate in Monitor, battendo CAL- 
L-151, per introdurre la TAVOLA 
DELLE FIGURE visibile nel Listato 
2 (se non v i è chiara questa operazio¬ 
ne, leggetevi l’articolo Per chi comin¬ 
cia ). Salvate la tavola con il nome 
ITA VOLA in modo che il programma 
principale la possa caricare a dovere. 
Il comando è BSAVE ITAVO- 
LA,A$300,L$29. 

Adesso battete RUN. Collaudate le 
varie subroutine per vedere se funzio¬ 
nano: la tavola delle figure deve dise¬ 
gnare una croce, che fa da cursore, un 
blocco pieno che compare quando si 
traccia un punto e un blocco vuoto che 
compare quando si ridisegna la figura. 
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Listato 1 


10 

REM 

********************** 

11 

REM 

* APPLE ILLUSTRATORE * 

12 

REM 

* DI COLIN FRENCH 

* 

13 

REM 

* COPYRIGHT (C) 1985 * 

14 

REM 

* BY APPLICANDO 4 

* 

15 

REM 

* MI CROSPARC, INC- 

* 

16 

REM 

********************** 


33 POKE 33.33 

180 IF PEÉK (104) = 64 THEN 230 

190 POKE 103.1: POKE 104,64: POKE 16384,0 

200 PRINT CHR* (4);'RIN APPLE ILLUSTRATORE* 

210 REM ***** INI2IALIZZAZI0NE ******************* 

220 : 

230 D* = CHR$ (4): TEXT : HOME 
270 LI = 0 : HI = 3:L2 = 253:H2 = 9 
280 PRINT Dtj'BLQAD ITAVOLA,Al300' 

290 DIM L(255) 

390 TEXT : HOME : VTAB 22: PRINT '(01985 BY APPLICANDO & MI 
CROSPARC, INC. ': GOTO 430 

400 : 

410 REM ******* MENU' PRINCIPALE ********************** 

420 TEXT : HOME 
430 VTAB 3 

440 PRINT TAB( 7) ;'**************************' 

450 PRINT TAB( 7);'* *' 

460 PRINT TAB( 7);'* APPLE ILLUSTRATORE *' 

470 PRINT TAB( 7h“* *': REM 24 SPA 

ZI FRA VIRGOLETTE 

480 PRINT TAB( 7);'**************************' 

490 VTAB 10 

500 PRINT TAB( 9);'E - EDITING FILE VETTORI': PRINT 

510 PRINT TAB( 9>:'C - COSTRUIRE TAVOLA FIGURE': PRINT 

520 PRINT TAB( 9);'V - VEDERE TAVOLA FIGURE': PRINT 

530 PRINT TAB( 9);'? - ISTRUZIONI': PRINT 

540 PRINT TAB( 9);'(ESC) PER FINIRE' 

550 VTAB 24 

560 PRINT TAB( 9);'SCEGLI: '; 

570 GET Z$ 

580 IF Zi = 'E' THEN 2000 

590 IF Z$ = 'C THEN 6000 

600 IF 2$ = 'V THEN 7000 

610 IF Z$ ='?' THEN LOC = 1: GOTO 8000 

620 IF Z* = CHR$ (27) THEN HOME : POKE 103,1: POKE 104,8: POKE 
105.24: POKE 106,8: END 
630 GOTO 570 
700 : 

710 REM ****** INPUT MULTI-LETTERA ************** 

720 : 

730 W* = " 

740 GET li 

750 IF li = CHR* (13) THEN RETURN 

760 IF Z$ = CHR$ (8) THEN 800 

770 IF LEN 04) = LMT THEN 740 

780 IF Z$ = ',' THEN 740 

790 PRINT Z*;:t4 = 14 ♦ 2i\ GOTO 740 

800 IF LEN 04) = 0 THEN 740 

810 PRINT CHR$ (8);: PRINT ' PRINT CHR* (8); 

820 IF LEN 04) = 1 THEN 730 
830 14 = LEFTt 04, LEN 04) - 1): GOTO 740 
1000 : 

1010 REM ****** DISEGNA^CANCELLA IL CURSORE ************** 

* 

1020 : 

1030 POKE 232.LI: POKE 233,HI: ROT= 0: SCALE= 1 
1040 XDRAW 1 AT XC,YC 
1050 RETURN 
1100 : 

1110 REM ****** DI SEGNA/CANCELLA LE FIGURE PICCOLE ******* 

** 

1120 : 

1130 IF PEEK (2561) = 0 THEN 1170 

1140 POKE 232,L2: POKE 233.H2: ROT= 0: SCALE= 1 

1150 DRAW 1 AT 233 * INT (XS / 5),40 4 INT (YS / 5) 

1160 R0T= 16: DRAW 1 AT 266 - INT (YS / 5),90 4 INT (XS / 

5) 

1170 RETURN 
1200 : 

1210 REM ****** DISEGNVCMCELLA IL 8L0CC0 *************** 

* 

1220 : 

1230 POKE 232.L1: POKE 233,HI: R0T= 0: SCALE= 1 
1240 DRAW 2 AT OX.OY 


1250 RETURN 
1300 : 

1310 REM ****** POSIZIONA IL CURSORE ****************** 

1320 : 

1340 PRINT 'POSIZIONA IL CURSORE NEL PUNTO DI INIZIO': 

1350 PRINT 'DEL TRADIMENTO,POI PREMI INVERSE : PRINT • 

BARRA SPAZIO':: NORMAL 
1360 GET ZI: GOSUB 1000 

1370 IF Z$ = ' I' THEN YC = YC - 5: IF YC < 0 THEN YC = 2 

1380 IF Zi = 'J B THEN XC = XC - 5: IF XC ( 0 THEN XC = 2 

1390 IF Zi = 'K' THEN XC = XC * 5: IF XC > 219 THEN XC = 217 

1400 IF li = 'M' THEN YC = YC 4 5: IF YC > 159 THEN YC = 157 

1410 IF Zi = ' ' THEN RETURN 

1420 IF Zi = '?' THEN LOC = 2: GOTO 8000 

1430 GOSUB 1000: GOTO 1360 

1500 : 

1510 REM **** CONSERTE IL BYTE IN STRINGA BINARIA ***** 

1520 : 

1530 B* = ": IF INT (BT / 128) THEN BT = BT - 128:B* = B$ 4 
"1': GOTO 1550 
1540 8$ = B$ 4 *0' 

1550 IF INT (BT / 64) THEN BT = BT - 64:B* = B* 4 GOTO 
1570 

1560 B$ = Bt 4 '0' 

1570 IF INT (BT / 32) THEN BT = BT - 32:B* = B$ 4 M'j GOTO 
1590 

1580 B$ = Bt 4 *0' 

1590 IF INT (BT / 16) THEN BT = BT - 16:B* = B* 4 M': GOTO 
1610 

1600 8* = B$ 4 '0' 

1610 IF INT (BT / 8) THEN BT = BT - 8:B* = B* 4 •]': GOTO 1 
630 

1620 6$ = B$ 4 '0' 

1630 IF INT (BT / 4) THEN BT = BT - 4:B* = B$ 4 *1' : GOTO 1 
650 

1640 B* = B* ♦ *0* 

1650 IF INT (BT / 2) THEN BT = BT - 2:B$ = B* 4 'i'j GOTO 1 
670 

1660 B$ = B$ 4 *0' 

1670 IF BT THEN B$ = B$ 4 '1': GOTO 1690 
1680 B* = Bi 4 *0' 

1690 RETURN 

1700 : 

1710 REM ****** DISEGW FIGURA GRMDE **************** 

1720 : 

1730 AA = AD: ROT= 0: SCALE= 1:XC = XS:YC = YS:FER = 0 
1740 BT = PEEK (AA): IF BT = 0 THEN 1910 
1750 REM -CONVERTE IN STRINGA B1NAR1A- 

1760 GOSUB 1500 

1770 OX = XC:OY = YC 

1780 IF MIO* (BM,1) = "l" THEN HCOLOR= 0: GOSUB 1200: POKE 
232,LI: POKE 233,HI: HCQLQR= 3: DRAW SH AT XC,YC 
1790 IF M1D* (B*.7,2) = *00' THEN YC = YC - 5: IF YC < 0 THEN 
FER = 1:YC = 2: GOTO 1940 

1800 IF M1D* (W.7,2) = '11' THEN XC = XC - 5: IF XC < 0 THEN 
FER = 1 :XC = 2: GOTO 1940 

1810 IF MID* (Bl.7,2) = '01' THEN XC = XC 4 5: IF XC ) 219 THEN 
FER = 1 :XC = 217: GOTO 1940 

1820 IF MIO* <B*,7,2) = '10' THEN YC = YC 4 5: IF YC > 159 THEN 
FER = 1:YC = 157: GOTO 1940 
1830 OX = XC:OY = YC 

1840 IF MIDI (B*,3,3) = “000“ THEN 1900 
1850 IF MIDI (Bl.3.1 ) = '!' THEN HCOLOR= 0: GOSUB 1200: POKE 
232,LI: POKE 233,HI: HCOLOR= 3: DRAW SH AT XC.YC 
1860 IF MIDI (B*,4,2) = "00" THEN YC = YC - 5: IF YC < 0 THEN 
FER = 1:YC = 2: GOTO 1940 

1870 IF MIDI (Bf ,4,2) = MI' THEN XC = XC - 5: IF XC < 0 THEN 
FER = 1:XC = 2: GOTO 1940 

1880 IF MIO* (Bt .4,2) = '01' THEN XC = XC 4 5: IF XC ) 219 THEN 
FER = 1:XC = 217: GOTO 1940 

1890 IF MID* (Bf.4,2) = "IO" THEN YC = YC 4 5: IF YC > 159 THEN 
FER = 1:YC = 157: GOTO 1940 * 

1900 AA = AA + 1: GOTO 1740 
1910 IF AA = AD THEN 1940 

1920 IF MIO* (B*,3,3) = '000' THEN AA = AA - 1:V = 2: GOTO 
1940 
1930 V = 1 
1940 RETURN 
2000 : 

2010 REM ***** EDITING FILE VETTORI - TRACCIAMENTO ***** 

* 

2020 : 

Continua 


57 







Funzionamento 

La prima linea del programma prov¬ 
vede al reset del byte alto del puntato¬ 
re di avvio del programma da $08 a 
$40, causando così il ricaricamento del 
programma con partenza da $4001. Lo 
spazio di memoria compreso fra la 


sommità della pagina di testo 1 ($800) 
e il fondo dello schermo HGR ($2000) 
è usato per la tavola delle figure o il file 
di vettori che si sta realizzando. La 
tavola delle figure usata dal program¬ 
ma principale è situata a partire da 
$300. Poiché si hanno due tavole delle 
figure è necessario impostare a dovere 


il puntatore d’indirizzo della tavola 
delle figure prima di disegnare una de¬ 
terminata figura, per esempio a linea 
1030 della subroutine DISEGNA- 
/CANCELLA IL CURSORE. 

I vettori della prima figura sono 
scritti in memoria con POKE comin¬ 
ciando alla locazione $A01. Questo 


2030 HC = 3:XC = 112:YC = 82: HGR 
2040 HOME : VTAB 21 

2050 INVERSE : PRIMI 1 «EDITING FILE VETTORI» ?-lSTRU2ION 
1 " ; : NORMAL 

2060 REM -DISEGNA IL CURS0RE- 

2070 G0SUB 1000 

2080 AD = 2561 = AD:V = 1 

2090 REM -POKE DELL'INTESTAZIONE- 

2100 POKE AD - 1,0: POKE AD - 2,4 

2110 POKE AD - 3.0: POKE AD - 4,1 

2120 POKE AA,0 : POKE M 4 1,0 

2130 REM -DISEGNA LA LINEA DI SEPARAZIONE- 

2140 HC0L0R= 3: HPL0T 221.0 T0 221,158 T0 222,158 T0 222,0 

2150 REM -POSIZIONA IL CURS0RE- 

2160 G0SUB 1300 

2170 XS = XC:YS = YC 

2180 VTAB 22: HTAB 1: PRINT "B-BACKSPACE S-SAVE C 

-COLORE *: 

2190 PRINT ^-CANCELLARE L-L0AD V-VEDERE 1 

2200 PRINT 'R-RITRACCIARE <ESC) MENU' D-D0S 1 ; 

2210 REM -DISEGNA IL CURS0RE- 

2220 G0SUB 1000 :L0C = 3 

2230 REM -DISEGNA FIGURE PICC0LE- 
2240 HCQL0R= HC: G0SUB 1100 
2250 REM -RICEVE COTWIDO- 
2260 GET ZI: G0SUB 1000:0X = XC:0Y = YC 
2270 HC0L0R= 0: GOSUB 1100 
2280 1F ZI = CHRI (27) THEN 400 

2290 IF ZI = "?■ THEN 8000 

2300 IF ZI = *B* THEN 3000 

2310 IF ZI = "E 1 THEN HGR : GOTO 2040 

2320 IF ZI = *R* THEN SH = 3: GOSUB 1700: GOTO 2040 

2330 IF ZI = "S" THEN L0C = 4: GOTO 3400 

2340 IF ZI = V THEN L0C = 5: GOTO 3600 

2350 IF ZI = *C B THEN 3800 

2360 IF ZI = "V THEN L0C = 7: GOTO 4200 

2370 IF ZI = *D* THEN L0C = 6: GOTO 3900 

2380 REM -SPOSTAMENTI CURS0RE/TRACC1MENT0- 
2390 IF ZI = *1* THEN GOSUB 2500: GOSUB 2620:V1I = *0': GOTO 
2700 

2400 IF ZI = B J* THEN GOSUB 2530:V1I = *0*: GOTO 2700 

2410 IF ZI = *K* THEN GOSUB 2560:V1I = *0*: GOTO 2700 

2420 IF ZI = -M B THEN GOSUB 2590:V1I = *0*: GOTO 2700 

2430 IF ZI = CHRI (9) THEN GOSUB 2500:V1I = "1*: HC0L0R= 3 

: GOSUB 1200: GOTO 2700 

2440 IF ZI = CHRI (10) THEN GOSUB 2530:V1I = M B : HC0L0R= 

3: GOSUB 1200: GOTO 2700 

2450 IF ZI = CHRI (11) THEN GOSUB 2560:V1I = * 1 " : HC0L0R= 

3: GOSUB 1200: GOTO 2700 

2460 IF ZI = CHRI (13) THEN GOSUB 2590:V1I = "1": HC0L0R= 

3: GOSUB 1200: GOTO 2700 
2470 GOTO 2210 
2500 REM -VETTORE IN SU- 

2510 YC = YC - 5: IF YC < 0 THEN YC = 2: POP : GOTO 2210 

2520 V2I = , 00 i : RETURN 

2530 REM -VETTORE A SINISTRA- 

2540 XC = XC - 5: IF XC < 0 THEN XC = 2: POP : GOTO 2210 

2550 V2I = "11": RETURN 

2560 REM -VETTORE A DESTRA- 

2570 XC = XC + 5: IF XC ) 219 THEN XC = 217: POP : GOTO 2210 
2580 V2I = , 01 B : RETURN 
2590 REM -VETTORE IN G1U'- 

2600 YC = YC ♦ 5: IF YC > 159 THEN YC = 157: POP : GOTO 2210 
2610 V2I = -10** : RETURN 

2620 REM - CONTROLLA SE IN SU SENZA TRACC1AMENT0- 
2630 IF V = 1 THEN 2660 

2640 IF VKI(l) < ) *000* THEN VKI = *00000* 4 VKI(l): GOSUB 
2800:AA = AA 4 1:V = 1 : GOTO 2660 
2650 VKI = *00011* 4 VKI(l): GOSUB 2800:^ = M 4 1 :VKI = *00 
001000*: GOSUB 2800:AA = AA 4 1;V = 1 : POP : GOTO 2210 
2660 RETURN 

2700 REM -PREDISPONE VETTORI DI CUI FARE IL P0KE- 
2710 VKI(V) = VII 4 V2I 


2720 IF V = 1 THEN VKI = "00000* 4 VKI(l) 

2730 IF V = 2 THEN VKI = B 00 B 4 VKK2) 4 VKI(l) 
2740 GOSUB 2800 

2750 IF V = 1 THEN V = 2: GOTO 2210 
2760 V = 1:AA = AA 4 1 : GOTO 2210 
2800 REM - POKE DEI VETTORI- 
2810 BT = 0 
2820 F0R N = 1 TO 3 

2830 IF MIDI (VKI.N.l) = *0 B THEN 2850 
2840 BT = BT 4 2 * (8 - N) 

2850 NEXT N 

POKE AA,BT: POKE M 4 1,0 
RETURN 


2860 

2870 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 


REM ****«« VA INDIETRO DI 1140 ********************* 

' 1F AA = AD AND PEEK <M) = 0 AND V = 1 THEN 3230 
REM -CANCELLA FIGURE PICCGLE- 
HC0L0R= 0: GOSUB 1100 
IF V = 2 THEN BT = PEEK <M> 

IF V = 1 THEN BT = PEEK - 1) 

REM -CONVERTE IN STRINGA BINAR1A- 
G0SUB 1500 

IF V = 1 AND MIDI (Bl,3,3) = *000* THEN V = 2:M = M - 
1 : GOTO 3060 

IF V = 2 THEN VII = MIDI (Bl,6,1):V2I = MIDI (Bl,7,2) 


3120 IF V = 1 THEN VII = MIDI (Bl,3,1):V2I = MIDI (Bl,4,2) 


3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 


0 


REM -SPOSTA IL CURS0RE- 
IF V2I = *00* THEN YC = YC 4 5 

IF V2I = *11* THEN XC = XC 4 5 

IF V2I = *01* THEN XC = XC - 5 

IF V2I = *10* THEN YC = YC - 5 

REM -CANCELLA IL BLOCCQ- 

1F VII = *1* THEN HC0L0R= 0:OX = XC:0Y = YC: GOSUB 120 


REM -CANCELLA IL VETTORE- 

IF V = 2 THEN V = 1: POKE M,0: GOTO 3230 


3220 V=2:AA = AA-1:BT= PEEK Ito)'. GOSUB 1500:VKI(1) = MIDI 
(Bl,6,3):VKI = *00000* 4 VKI(l): GOSUB 2800 
3230 GOTO 2210 


3400 : 

3410 REM ***«# SALVA FILE VETTORI ***************** 

3420 : 

3430 IF AA = AD AND PEEK (M> = 0 THEN 2210 

3440 VTAB 22: HTAB 1: PRINT * (ESC) PER INTERROMPERE 

• 

3450 PRINT 'NOME FILE VETTORI? VETTORI/ 

3460 PRINT * *;: REM 

39 SPAZI FRA VIRGOLETTE 
3470 VTAB 23: HTAB 28:LMT = 22: GOSUB 700 
3480 IF W! = ** OR W = CHRI (27) THEN 2180 
3490 IF Ul = B ? B THEN 8000 
3500 'VTAB 22: HTAB 39: PRINT : 0NERR GOTO 5000 
3510 PRINT DI;*BSAVE VETTORI/*;UI;",A25ól,L*;AA - AD 4 2 
3520 POKE 216,0: GOTO 2180 
3600 : 

3610 REM ***** CARICA FILE VETTORI ***************** 

3620 : 

3630 VTAB 22: HTAB 1: PRINT * (ESC) PER INTERROMPERE 

■ 

3640 PRINT 'NOME FILE VETTORI? VETTORI/ 

3650 PRINT B REM 

39 SPAZI FRA VIRGOLETTE 
3660 VTAB 23: HTAB 28:LMT = 22: GOSUB 700 
3670 IF W$ = ,B OR 14 = CHRI (27) THEN 2180 
3680 IF 14 = *?* THEN 8000 
3690 'VTAB 22: HTAB 39: PRINT : 0NERR GOTO 5000 
3700 PRINT DI;*BL0AD VETTORI/*;WI;* A2561*: POKE 216,0 
3710 HGR : HCÙLOR= 3: HPLOT 221,0 TÒ 221,158 TO 222,158 TO 2 
22.0 
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concede posto a sufficienza per l’inte¬ 
stazione di una tavola delle figure 
comprendente 255 figure e spazio per 
oltre 11.000 vettori. 

Il programma 

Ci sono alcune sezioni interessanti 
del programma che vorremmo mette¬ 
re in evidenza,ma prima di esaminarle 
potrebbe essere utile una rassegna ge¬ 


nerale del programma. Il programma 
principale è composto delle seguenti 
sezioni: 

10-290 Testata del programma e 
inizializzazione; 400—630 Menù prin¬ 
cipale; 700-830 Input multi-lettera; 
1000-1050 Disegna/cancella il curso¬ 
re; 1100—1170 Disegna/Cancella le fi¬ 
gure piccole; 1200—1250 Disegna- 
/Cancella il blocco; 1300-1430 Posi¬ 
ziona il cursore; 1500-1690 Converte 


il byte in stringa binaria; 1700—1940 
Disegna la figura grande; 2000—2870 
Funzione tracciamento; 3000—3230 
Torna indietro di uno; 3400—3520 Sal¬ 
va il file di vettori; 3600—3780 Carica il 
file di vettori; 3900—4110 Comandi 
DOS; 4200-4550 Vedere la figura; 
5000-5160 Gestione errori dischetto; 
6000-6530 Costruisce la tavola delle 
figure; 7000—7550 Vedere la tavola 
delle figure; 8000—9460 Istruzioni. 


3720 SH = 2: 60SUB 1700 
3730 IF FED = 0 THEN 2180 

3740 HOME : GQSUB 1000: VTAB 22: FRINÌ "NON CI STA' COMINCIA 
NDO DA QUELLA POSI- ZI ONE'; 

3750 FRINÌ - DEL CURSORE. CAMBIA POSIZIONE.* 

3755 H1AB 13: FRINÌ '(PREMI <RE!URN>>; 

3760 SEI Z$: HOME : VTAB 21: INVERSE : PRIMT * «EDITING FILE 
VETTORI* 7-IS1RUZIONI *:: NORMAL : IF Z* = CHR* (27 
) 1HEN 2180 

3770 IF li = *?' 1HEN 8000 

3780 GOSUB 1300 :XS = XC:YS = YC: 6010 3710 

3800 : 

3810 REM ***** C#1B1A IL COLORE ********************* 

3820 : 

3830 HC = HC * 1 : IF HC ) 6 1HEN HC = 1 
3840 IF HC = 4 1HEN HC = 5 
3850 G010 2210 
3900 : 

3910 REM ******* COMEDI DOS ******************* 

3920 : 

3930 HOME : VTAB 21: INVERSE : FRINÌ * *ED11ING FILE VETTORI 
* ?-IS1RUZIONI *;: NORMAL 

3940 PR1N1 'COMANDI DOS: C-CATAL0G '; 

3950 PR1NT TAB( 26); SCANCELLARE 8 

3960 PRJNT 1AB( 16);'(ESC) PRECEDEN1E '; 

3970 GEI li: IF li = CHR* (27) 1HEN P0KE - 16304,0: G010 
2180 

3980 IF li - "?' 1HEN 8000 

3990 IF li = 'C 1HEN 4020 

4000 IF li = 'D' 1HEN 4060 

4010 G010 3970 

4020 1EXT : POKE 35,20: VTAB 1 : HOME : PR1NT 
4030 PRINT M;'CA1AL0G“ 

4040 POKE 35.24: V1AB 24: H1AB 33 
4050 G010 3970 

4060 VTAB 22: H1AB 1: PRINT ' <ESC> PER INTERROMPERE 

D 

4070 PRINT 'FILE DA CANCELLARE? 

': : VTAB 23: KTAB 22 

4080 LMT = 30: GOSUB 700: IF 14 = " ÓR 14$ = CHR$ (27) THEN 
3930 

4090 VTAB 22: HTAB 39: PRINT : ONERR GOTO 5000 
4100 PRINT D$;'DELETE 8 ;14 
4110 POKE 216,0: GOTO 3930 
4200 : 

4210 REM ******* VEDERE FIGURA ********************* 

4220 : 

4230 HGR : VTAB 22: HTAB 1 

4240 X = 140 : Y = 80: POKE 232,L2: POKE 233, H2 

4250 CC = 3: HC0L0R= CC 

4260 RR = 0: R0T= RR 

4270 SS = 1 : SCALE= SS 

4280 PRINT ' ': REM 3 

9 SPAZI FRA VIRGOLETTE 

4290 PRINT 8 C - COLOREO ) R - R0TA2I0NE (0 ) ' 

4300 PRINT 8 S - SCALA (1 ) (ESC) PRECEDENTE '; 

4310 HCQL0R= CC: DRAU 1 Al X,Y 
4320 GEI Z$: HC0L0R= 0: DRAU 1 AT X.Y 
4330 IF li = '?" THEN 8000 
4340 IF li < > CHR$ (27) THEN 4370 
4350 HGR : HC0L0R= 3: HPL0T 221,0 T0 221,158 T0 222,158 10 2 
22,0 

4360 SH = 2: GOSUB 1700: GOTO 2180 

4370 IF li < > 'C' THEN 4430 

4380 CC = CC ♦ 1: IF CC > 6 THEN CC = 1 

4390 IF CC = 4 THEN CC = 5 

4400 VTAB 23: HTAB 13: PRINT ' '; 

4410 HTAB 13: PRINT CC;: VTAB 24: HTAB 40 
4420 GOTO 4310 


4430 IF Z$ < > 'S' THEN 4470 
4440 SS = SS ♦ 1: IF SS ) 10 THEN SS 


4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 


1 


SCALE= SS: VTAB 24: HTAB 13: PRINT 8 '; 

KTAB 13: PRINT SS:: HTAB 40: GOTO 4310 
IF li < ) 'R 8 THEN 4510 
RR = RR * 1 : IF RR > 63 THEN RR = 0 
R0T= RR: VTAB 23: HTAB 35: PRINT ' '; 

HTAB 35: PRINT RR;: 'VTAB 24: HTAB 40: GOTO 4310 

IF li = T THEN Y = Y - 5: IF Y < 0 THEN Y = Y ♦ 159 

IF li = 'J y THEN X = X - 5: IF X < 0 THEN X = X ♦ 279 

IF li = 'K" THEN X = X ♦ 5: IF X > 279 THEN X = X - 279 


4550 
5000 
5010 
5020 
5030 ER 


IF li = 'M' THEN Y = Y 4 5: IF Y > 159 THEN Y = Y - 159 
GOTO 4310 

REM ****** GESTIONE ERRORI DEL DISCO ************* 
PEEK (222): IF L0C = 8 OR L0C = ? THEN POKE 35,24 


REM 3 
REM 3 
: REM 

IL FILE NON ESISTE SU QUESTO DI 
NON C'E' SPAZIO SU QUESTO DISCO 
IL FILE E' PROTETTO.': GOTO 51 
NON E' UN NOME DI FILE VALIDO. 

PEEK (218) 4 PEEK (219) * 256 


5040 VTAB 22: HTAB 1 
5050 PRINT ' 

9 SPAZI FRA VIRGOLETTE 
5060 PRINT 8 

9 SPAZI FRA VIRGOLETTE 
5070 PRINT ' 

39 SPAZI FRA VIRGOLETTE 
5090 IF ER = 6 THEN PRINT ' 

SCO.': GOTO 5150 
5100 IF ER = ? THEN PRINT 
.': GOTO 5150 

5110 IF ER = 10 THEN PRINT 
50 

5120 IF ER = 11 THEN PRINT 
': GOTO 5150 

5130 PRINT 'ERRORE NO.';ER; 

5140 PRINT ' ALLA LINEA NO.' 

: END 

5150 PRINT 8 (PREMI (RETURN» 8 ;: GET 2* 

5160 QN L0C GOTO 400,2040,2180,3440,3630,3930,4500,6040,6430 
,7000,7190 
6000 : 

6010 REM ****** COSTRUISCE TAVOLA DELLE FIGURE *********** 
**** 

6020 : 

6030 AD = 2561:AA = AD:SNUM = 1:TL = 0 
6040 TEXT : HOME : VTAB 21 

6050 INVERSE : PRINT ' «COSTRUIRE TAVOLA FIGURE* ?-ISTRUZI0N 
I 8 ; : NORMAL 

6060 PRINT 8 BATT1 : END (RETURN) PER FINIRE' 

6070 PRINT 0 C (RETURN) PER IL CATALOGO' 

6080 PRINT ' (ESC)(RETURN) PER INTERROMPERE'; 

6090 REM -IMPOSTA FINESTRA TEST0- 
6100 POKE 35,20 

6110 HOME 

6111 PRINT : PRINT 'N)U0VA TAVOLA DELLE FIGURE' 

6112 PRINT 8 T)AVOLA DELLE FIGURE ESISTENTE 

6113 GET 14: PRINT 14: IF 14 = 'T* THEN GOTO 9500 
6120 PRINT 'NOME DELLA FIGURA ';SNUM; 8 : VETTORI/'; 

6130 LMT = 22: GOSUB 700 

6140 IF 14 = " OR 14 = CHR* (27) THEN PRINT : GOTO 6500 

6150 IF 14 = '?' THEN POKE 35,24:L0C = 8: GOTO 8000 

6160 IF 14 = 'C* THEN PRINT : PRINT Wj'CATALOG': PRINT : GOTO 

6120 

6170 IF 14 = 8 END' THEN 6270 
6180 L0C = 8: ONERR GOTO 5000 

6190 PRINT : PRINT W;'BL0AD VETTORI/';14;',A’;AA: POKE 216, 


6200 L(SNUM) = PEEK ( - 21920) 4 


PEEK ( - 21919) * 256 
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Multi—get per l’input 

L’impiego del comando GET del- 
l’Applesoft per l’immissione di infor¬ 
mazioni ha molti vantaggi quando si 
cerca di realizzare un programma a 
prova di bomba. Ci sono però circo¬ 
stanze nelle quali è richiesto come in¬ 
put più di un unico carattere. Questo 
ha portato alla realizzazione della su¬ 
broutine di input multi-lettera. Dopo 
aver chiesto informazioni all’utente, il 
programma principale imposta la va¬ 
riabile LMT sulla lunghezza massima 
della stringa di input che sarà permes¬ 
sa e salta a questa routine. La subrou¬ 
tine di input sostanzialmente riceve 
con GET un carattere alla volta e lo 
aggiunge alla variabile stringa di input 
W$. Si possono fare controlli per in¬ 
trappolare qualsiasi carattere indesi¬ 
derato. Per esempio la linea 780 non 
permette l’accettazione di virgole. Per 
consentire il cambiamento della strin¬ 
ga di input la routine intrappola il tasto 
di freccia indietro e modifica in con¬ 
formità il display e la stringa. Dopo il 
ritorno al programma principale, W$ 
conserva l’input dell’utente. 


Tracciamento 

La funzione TRACCIAMENTO 
(PLOTTING) ha inizio con una sem¬ 
plice inizializzazione dei vettori, dello 
schermo Hi-Res e della finestra di 
testo, seguita da salti alle altre varie 
funzioni di EDITING FILE DI VET¬ 
TORI. Viene poi la parte più impor¬ 
tante della funzione: la scrittura in me¬ 
moria (POKE) dei vettori. Si è deciso 
di avere solo due vettori per byte, in 
quanto è raro che si possano far stare 
tre vettori in un unico byte, e in questo 
modo si semplifica considerevolmente 
il programma. Il programma determi¬ 
na quale vettore è stato introdotto, 
traccia il blocco nella figura grande se 
si tratta di un vettore di tipo traccia¬ 
mento, cambia le coordinate del cur¬ 
sore in modo che corrispondano alla 
direzione desiderata e infine fa il poke 
nella locazione di memoria opportu¬ 
na. 

La sola eccezione a questa procedu¬ 
ra è il vettore in su senza tracciamento. 
Se si tratta del secondo vettore di un 
byte la routine di disegno in Applesoft 
lo ignorerà e salterà al byte successivo. 
Se si tratta del primo vettore e il secon¬ 
do vettore è qualunque cosa che non 
sia un altro vettore in su senza traccia¬ 
mento tutto funziona a dovere. Invece 
se entrambi i vettori fossero del tipo in 
su senza tracciamento la routine in 


Impiego della memoria 

$FFFF - 

DOS, Applesoft e Monitor 

$9600 - 

Programma principale, stringhe e variabili 

$4000 - 

Pagina 1 alta risoluzione 

$2000 - 

Vettori 

$0A01 - 

Intestazione tavola delle figure utente 

$0800 - 

Pagina di testo 1 

$0400 - 

Tavola delle figure programma 

$0300 - 

Per uso del computer - puntatori, ecc. 

$0000 - 


jppi 

ir L 




Figura 3. Ecco come si presenta il logo APPLE disegnato con APPLE 
ILLUSTRATORE, ingrandito 3 volte, ruotato di 90 gradi e nel controllo di una 
visualizzazione nei colori fondamentali dell’Apple. 


Applesoft interpreterebbe questo fat¬ 
to come fine della figura e smettereb¬ 
be completamente di disegnare. Il co¬ 
dice da linea 2620 a linea 2660 control¬ 
la se ci siano queste situazioni anomale 
e le corregge. Se il vettore in su senza 
tracciamento è il secondo, viene sem¬ 
plicemente spostato ir} modo che di¬ 
venti il primo vettore del byte successi¬ 
vo. Se a un vettore in su senza traccia¬ 
mento se ne fa seguire un altro, il pro¬ 
gramma aggiunge un vettore per fare 
un passo a sinistra, fa il movimento in 
su senza tracciamento e poi torna sulla 


destra. Tutto questo avviene a nostra 
insaputa, ma se torniamo indietro ol¬ 
trepassando un paio di vettori in su 
senza tracciamento, lo scarto a sinistra 
diventa evidente. 

Lungo tutto il corso del programma, 
alla variabile LOC vengono assegnati 
valori differenti. Essi indicano la posi¬ 
zione dell’utente nel programma e 
pertanto quale funzione si sta usando. 
Queste informazioni sono utilizzate da 
due sezioni del programma, le funzio¬ 
ni GESTIONE ERRORI DISCHET¬ 
TO e ISTRUZIONI, per far tornare 
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6210 AA = AA + L(SNUM) 

6220 SNtM = SNUM ♦ 1 

6230 IF SNUM < 256 THEN 6120 

6240 PRIN7 : PRINT •QUESTO E' IL NUMERO MASSIMO DI FIGURE 
CHE SI POSSONO AVERE IN UNA TAVOLA. FINE TAVOLA 0 
INTERRUZIONE? (F/I) GET li 
6250 IF lì = D F" THEN 6270 
6260 GOTO 6500 

6270 REM -P0KE INTESTAZIONE DELLA TAVOLA- 
6280 SNUM = SNUM - 1sTL = 0: IF AA = AD THEN 6500 
6290 FOR N = 1 TO SNUM 
6300 TL = TL + L(N) 

6310 next N 

6320 TTL = TL ♦ SNUM * 2 * 2:TL = TTL 
6330 FOR N = SNUM T0 1 STEP * 1 
6340 TL = TL - L(N) 

6350 HB = INT (TL / 256) 

6360 LB = TL - HB * 256 
6370 POKE AD - (SNUM - N) * 2 - 1,HB 

6380 POKE AD - (SNUM - N) * 2 - 2,LB 

6390 NEXT N 

6400 POKE AD - SNUM * 2 - 1,0 

6410 POKE AD - SNUM * 2 - 2,SNUM 

6420 PRINT : PR1NT "LA TAVOLA E' "jTTL;" BYTE DI LUNGHEZZA . 1 

6430 PRINT "NOME DELLA TAVOLA? TAVOLA/ 1 ; 

6440 LMT = 22; GOSUB 700 

6450 IF W$ = 11 OR W* = CHI» (27) THEN PRINT ; GOTO 6500 
6460 IF = •?• THEN LOC = 9: GOTO 8000 
6470 LOC = 9: ONERR GOTO 6320 

6480 PRINT : PRINT D$;"BSAVE TAVOLA / 1 ;U» ; B ,A" ;AD - SNUM * 2 - 
2S-.L-STTL 
6490 POKE 216,0 

6500 PRINT "UN'ALTRA TAVOLA 9 (S/N) 1 : : GET lì 
6510 IF li = "S 1 THEN SNUM = 1 :AA = AD: GOTO 6110 
6520 POKE 35.24 
6530 GOTO 400 
7000 : 

7010 REM ****** VEDERE TAVOLA FIGURE **************** 

7020 : 

7030 HOME : VTAB 21: HGR :LOC = 10 

7040 1NJERSE : PRINT 1 CEDERE TAVOLA FIGURE* ?-ISTRUZION 
I ":: NORMAL 

7050 PRINT •BATTI (ESC) (RETURN) PER INTERROMPERE 1 
7060 PRINT -NOME DELLA TAVOLA? TAVOLA/ 8 ; 

7070 LMT = 22: GOSUB 700 

7080 IF U$ = •" OR Ui = CHR$ (27) THEN 400 

7090 IF m = 191 THEN 8000 

7100 VTAB 23: PRINT 

7110 ONERR GOTO 5000 

7120 PRINT D$;"BLOAD TAVOLA/ 1 jW*; 1 ,A 2050 1 

7130 POKE 216,0 

7140 POKE 232.2: POKE 233,8 

7150 SNUM = PEEK (2050) 

7160 LOC = 11 

7170 CC = 3: HCOLOR= CC:RR = 0: ROT= RR:SS = 1: SCALE= SS 
7180 X = 140:Y = 80:NN = 1 
7190 HOME : VTAB 21 

7200 INVERSE : PRINT 1 «VEDERE TAVOLA FIGURE* 7-1STRUZI0N 
I 1 : : NORMAL 

7210 PRINT "(ESC) QUANDO AVETE FINITO 1 

7220 PRINT "N-UMERO TAVOLA (1 ) S-CALA (1 )" 

7230 PRINT 'C-AMB1A COLORE (3 ) R-OTA2N3NE (0 )"; 

7240 HCOLOR= CC: DRAW ffl AT X.Y 
7250 GET 2$ 

7260 IF li = CHI» (27) THEN 400 

7270 IF Z$ = "2 1 THEN 8000 

7280 HCOLOR= 0: DRAW NN AT X,Y 

7290 IF li ( ) -N 1 THEN 7340 

7300 ffl = NN * 1 : IF NN ) SNUM THEN NN = 1 

7310 VTAB 23: HTAB 17: PRINT 1 

7320 HTAB 17: PRINT MM ; : VTAB 24: ffTAB 40 

7330 GOTO 7240 

7340 IF li ( ) "S 1 THEN 7390 

7350 SS = SS ♦ 1: IF SS ) 10 THEN SS = 1 

7360 VTAB 23: HTAB 37: PRINT 1 8 ; 

7370 HTAB 37: PRINT SS;: VTAB 24: HTAB 40 

7380 SCALE= SS: GOTO 7240 

7390 IF Z$ < ) "R 1 THEN 7440 

7400 RR = RR + 1 : IF RR ) 63 THEN RR = 0 

7410 VTAB 24: HTAB 37: PRINT 1 *; 

7420 HTAB 37: PRINT RR;: HTAB 40 
7430 ROT= RR: GOTO 7240 
7440 IF li ( > "C 1 THEN 7500 
7450 CC = CC + 1: IF CC ) 6 THEN CC = 1 


7460 IF CC = 4 THEN CC = 5 
7470 VTAB 24: HTAB 17: PRINT 1 
7480 HTAB 17: PRINT CC;: HTAB 40 
7490 GOTO 7240 

7500 REM -SPOSTA LA F1GURA- 

7510 IF lì = T THEN Y = Y - 5: IF Y ( 0 THEN Y = 159 

7520 IF li = "J" THEN X = X - 5: IF X ( 0 THEN X = 279 

7530 IF Z* = "K" THEN X = X ♦ 5: IF X ) 279 THEN X = 0 

7540 IF li = "M 1 THEN Y = Y ♦ 5: IF Y ) 159 THEN Y = 0 

7550 GOTO 7240 
8000 : 

8010 REM ****** ISTRUZIONI ******************** 

8020 : 

8030 TEXT : HOME 

8040 IF LOC = 1 THEN 8090 

8050 ON LOC GOSUB 8300,8600,8600,8990,8990,9150,9150,9320,93 
20,9320.9320 

8060 VTAB 24: IWERSE : PRINT "(ESC) PRECEDENTE, 'M' PER CO 
NTINUARE •;: NORMAL 

8070 GET Hi IF li = CHI» (27) THEN 8230 
8080 IF li ( ) 1 M 1 THEN 8070 
8090 FOR N = 1 TO 5 

8100 IF N ( ) 2 AND N ( ) 5 THEN 8150 
8110 HOME : VTAB 10 

8120 IF N = 2 THEN PRlffT •* SE210NE UNO : EDITING FILE VETTO 
RI *": GOTO 8140 

8130 PRlffT ** SE21ONE DUE: COSTRUIRE TAVOLA FIGURE *‘ 

8140 FOR D = 1 TO 2500: NEXT D 

8150 HOME : ON N GOSUB 8300,8600,8990,9150,9320 

8160 VTAB 24 

8170 IF N ( ) 5 THEN HTAB 1 : INVERSE : PRINT '(ESC) PRECED 
ENTE, 'M' PER CONTINUARE 1 : : NORMAL 
8180 IF N = 5 THEN HTAB 2: INVERSE : PRINT "(ESC) PRECEDENT 
E, 'R' PER RIPETERE 1 5 : NORMAL 
8190 GET Hi IF li = CHI»'(27) THEN 8230 
8200 IF N ( ) 5 AND Z$ ( ) 1 M 1 THEN 8190 
8210 IF N = 5 AND li ( ) 'R 1 THEN 8190 
8220 NEXT N: GOTO 8090 
8230 HOME : POKE - 16304.0 

8240 IF LOC = 3 OR LOC = 4 OR LOC = 5 OR LOC = 7 THEN INVERSE 
: VTAB 21: PRINT 1 «EDITING FILE VETTORI* ^ISTRUZIONI 
1 ; : NORMAL 

8250 ON LOC GOTO 400,2040,2180,3400,3600,3900,4200,6040,6040 
,7000,7190 

8300 REM -PAGINA UNO- 

8310 PRINT : PRINT TAB< 8 ); 1 *** APPLE ILLUSTRATORE ***": PRINT 

8320 PRINT 1 QUESTO PROGRAMMA DI UTILITÀ' GRAFICA 1 
8330 PRINT "FACILITA LA COSTRUZIONE DI COMPLESSE TA- 1 : 

8340 PRINT "VOLE DELLE FIGURE DA USARE NEI PROPRI PROGRAMM 

I. 1 

8350 PRINT 1 LA SEZIONE 1 'EDITING FILE VETTORI' E' 1 ; 

8360 PRINT "USATA PER PROGETTARE LE FIGURE. IL SET 1 
8370 PRlffT 'DI VETTORI CHE DESCRIVE LA FIGURA VIENE 1 
8380 PRINT "SALVATO SU DISCO, CREANDO UNA LIBRERIA DI F1GUR 
E. 1 : PRINT 

8390 PRINT 1 LA SEZIONE 2 COSTRUIRE TAVOLA FIGURE ' 1 5 
8400 PRINT "COMBINA FIGURE DI QUESTA LIBRERIA IN UNA 1 ; 

8410 PRINT "TAVOLA DELLE FIGURE FINITA. 1 : PRlffT 
8420 PRINT 1 PER ALTRE INFORMAZIONI SULLE TAVOLE "; 

8430 PRlffT "DELLE FIGURE E SUL MODO DI USARLE VEDERE 1 ; 

8440 PRINT "LE PAGINE 91-100 DELL'APPLESOFT MANUAL . 1 
8450 VTAB 24: INVERSE : PRlffT "(ESC) PRECEDENTE, 'M' PER CO 
NTINUARE •:: NORMAL 

8460 GET Hi IF 2* = CHI» (27) THEN POP : GOTO 8230 
8470 IF Z$ ( > "M 1 THEN 8460 

8480 HOME : VTAB 3: PRINT 1 NELLA MG610R PARTE DELLE SEZIO 
NI DEL ": 

8490 PRlffT "PRQGRAftlA SI PUÒ' USCIRE DALLA FUNZIONE *; 

8500 PRINT "CHE SI STA USANDO PREMENDO (ESC). NELLE *; 

8510 PRINT "SEZIONI IN CUI E' PREVISTA L'IMMISSIONE 8 ; 

8520 PRINT "DI UNA PAROLA, COME IL NOME DI UN FILE , 1 
8530 PRlffT "PER USCIRE OCCORRE BATTERE (ESC-RETURN ). 1 : PRINT 

8540 PRINT " SI POSSONO CONSULTARE LE ISTRUZIONI DA"; 

8550 PRlffT "QUALSIASI PUNTO DEL PROGRAMMA BATTENDO 1 

8560 PRINT "'?', E PREMENDO (RETURN) SE OCCORRE. 1 : PRINT : PRINT 

8570 PRINT 1 QUANTO SEGUE E' UNA DESCRIZIONE DI 1 
8580 PRINT "CIASCUNA FUNZIONE NELLE VARIE SEZIONI." 

8590 RETURN 

8600 REM -PAGINA DUE- 

8610 PRINT •TRACCIAMENTO: 1 : PRINT 

8620 PRINT " IL CURSORE PUÒ' ESSERE SPOSTATO IN 1 

8630 PRINT 1 QUALUNQUE PUNTO DELL'AREA DI TRACCIAMENE DI 32 
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X 44 QUADRATI PRIftt DI COMIN- CIARE."; 

8640 PR1NT ' USARE I TASTI I,J,K & M PER GLI" 

8650 PRINT "SPOSTAMENTI IN SU, A SINISTRA, A DESTRA E IN GIU 
" RISPETTIVAMENTE."; 

8660 PRINT " PREMERE LA BARRA SPA210 QUANDO AVETE RAGGIUNT 
0 IL" 

8670 PRINT "PUNTO DI PARTENZA." : PRINT 

8680 PRINT " TRACCIARE I PUNTI USANDO GLI STESSI " 

8690 PRINT "TASTI PER LO SPOSTAMENTO DEL CURSORE." 

8700 PRINT "PREMENDO SOLO IL TASTO SI SPOSTERÀ' IL" 

8710 PRINT "CURSORE NELLA DIREZIONE OPPORTUNA," 

8720 PRINT "CREANDO UN VETTORE "SENZA TRACCIAMENTO".TENENDO 
PREMUTO IL TASTO "CTRL" E PRE-" 

8730 PRINT "MENDO I,J,K & M. SI TRACCERA' IL BLOCCO" 

8740 PRINT "SUL QUALE SI TROVA IL CURSORE PRIMA DI" 

8750 PRINT "SPOSTARSI NELLA DIREZIONE APPROPRIATA" 

8760 PRINT "CREANDO UN VETTORE "CON TRACCIAMENTO"." 

8770 VTAB 23: INUERSE : PRINT "<ESC> PRECEDENTE, "M" PER CO 
NT1NUARE ":: NORMAL 

8780 GET Z$: IF Z$ = CHR$ (27) THEN POP : GOTO 8230 
8790 IF 2% < > "M" THEN 8780 

8800 HOME : PRINT " LA FIGURA CHE SI STA TRACCIANDO E" " 

8810 PRINT "VISUALIZZATA SUL LATO DESTRO DEL VIDEO" 

8820 PRINT "SIA CON ROTAZIONE ZERO - SCALA UNO, SIA" 

8830 PRINT "CON ROTAZIONE 16 - SCALA UNO." 

8850 PRINT "IL COLORE DI QUESTE FIGURE PUÒ" ESSERE CAMBIATO 
■, 

8860 folNT " PREMENDO IL TASTO "CV: PRINT 
8870 PRINT " SE SI FA UN ERRORE SI PUÒ" TORNARE " 

8880 PRINT "INDIETRO E 'TOGLIERE IL TRACCIAMENTO" DIUN VETTO 
RE ALLA VOLTA": 

8890 PRINT " CON IL TASTO "B".": PRINT 

8900 PRINT " SI PUÒ" ANCHE RITRACCIARE L'INTERA FI-" 

8910 PRINT "GURA PREMENDO IL TASTO "R". IL CURSORE " 

8920 PRINT "E" QUINDI POSIZIONATO DOVE SI DESIDERA " 

8930 PRINT "INIZIARE A TRACCIARE E I BLOCCHI SONO " 

8940 PRINT "INDICATI NEL MODO CONSUETO. LA VECCHIA" 

8950 PRINT "FIGURA RIMANE SULLO SCHERMO COME GUIDA.": PRINT 

8960 PRINT " PER RICOMINCIARE DA CAPO PREMERE IL " 

8970 PRINT "TASTO "E". LA FIGURA E 1 SUOI VETTORI VENGONO 
CANCELLATI." 

8980 RETURN 

8990 REM -PAGINA TRE- 

9000 PRINT "SALVARE LA FIGURA:": PRINT 

9010 PRINT " SI PUÒ" SALVARE SU DISCO IL FILE DI ’ 

9020 PRINT "VETTORI CHE DISEGNA LA FIGURA. PREMENDO" 

9030 PRINT "(ESC - RETURN) SI RITORNA ALLA FUNZIONE" 

9040 PRINT "TRACCIAMENTO.": PRINT : PRINT : PRINT 

9050 PRINT "CARICARE LA FIGURA:": PRINT 

9060 PRINT " OLIANDO SI CARICA UN FILE DI VETTORI" 

9070 PRINT "DAL DISCO. LA FIGURA VIENE PRESENTATA" 

9080 PRINT "NELLA FUNZIONE TRACCIAMENTO E INIZIA" 

9090 PRINT "DALLA POSIZIONE DEL CURSORE. SE NON TRO-VERA" PO 
STO"; 

9100 PRINT " SULLO SCHERMO, VERRÀ" CHIE- STO DI"; 

9110 PRINT " SPOSTARE IL CURSORE E RIPROVARE." 

9120 PRINT " BATTERE (ESC) PER TORNARE ALLA FUNZI- NE TRACC 
IAMENTO." 


9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 

9500 

9510 

9515 

9518 

9520 

9530 


RETURN 

REM -PAGINA QUATTRO- 

PRINT "COTONDI DOS:"; PRINT 

PRINT " SONO DISPONIBILI DUE COMANDI : "DELETE" 

PRINT "E "CATALOG". DELETE NON FORNISCE UN ’ 

PRINT "PREFISSO COME "VETTORI/" 0 "TAVOLA/"" 

PRJNT "PER IL NOME DEI FILE DA CANCELLARE." 

PRINT 

PRINT " BATTERE (ESC) PER TORNARE ALLA " 

PRINT "FUNZIONE TRACCIAMENTO.": PRINT : PRINT 
PRINT "VEDERE LA FIGURA:": PRINT 


LE FIGURE POSSONO ESSERE ESAMINATE CON"; 
"IL CONTROLLO DEL COLORE. SCALA E ROTA-" 
"ZIONE. PER FATTORI DI SCALA MINORI CI " 
"SONO MENO ANGOLI DI ROTAZIONE DISPONIBI-LJ. 
BATTERE (ESC) PER TORNARE ALLA FUNZIO-NE" 
TRACCIAMENTO." 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
RETURN 

REM -PAGINA CINQUE- 
PRINT "COSTRUIRE LA TAVOLA:": PRINT 
PRINT " QUANDO VIENE RICHIESTO BATTETE IL NOME" 

PRINT "DEI FILE VETTORI CHE SI VUOLE COMBINARE" 

PRINT "IN \m TAVOLA DELLE FIGURE. PER INDICARE"; 

PRINT "LA FINE DI UNA TAVOLA. INTRODURRE "END"" 

PRINT "(RETURN), SI PUÒ' CONSULTARE IL CATALOGO" 

PRINT "DEL DISCO BATTENDO "C" E (RETURN). PER INTERROM 
PERE LA COSTRUZIONE DI INA TAVO-LA": 

PRINT " BATTERE (ESC) (RETURN).": PRINT : PRINT 
PRINT "VEDERE LA TAVOLA:": PRINT 
PRINT * SI PUÒ" CARICARE UNA TAVOLA DELLE FIGU-RE ED ES 
AMINARE"; 

PRINT " UNA QUALSIASI SUA FIGURACON IL CONTROLLO DEL"; 
COLORE, SCALA E RQ-TAZIQNE DELLA FIGURA." 

CON FATTORI DI SCALA MINORI CI": 

SONO ME-NO ANGOLI DI ROTAZIONE DISPONIBILI." 
BATTERE (ESC) PER IL MENU" PRINCIPALE." 


PRINT 
PRINT 
PRINT 1 
PRINT 
RETURN 
HOME : 
E" 

PRINT 
THEN 


PRINT : PRINT "NOME DELLA TAVOLA FIGURE ESI STEN! 


CHR* (2?) OR U* 


INPUT "TAVOLA/";U*: IF = 

GOTO 420 

IF = "?■ THEN POKE 35,24:LGC = 8: GOTO 8000 
IF m = "C" THEN PRINT : PRINT D*;"CATALOG" : PRINT : 
9510 

QNERR GOTO 10000 

PRINT W;"BLOAD TAVOLA/" ;W*;",A2561" 

9540 SNUM = PEEK (2561): IF SNUM ) = 256 THEN GOTO 6290 
9550 TL = PEEK (43616) ♦ PEEK (43617) * 256 
9560 L(SN) = TL - PEEK (AD ♦ (2 * SNUM)) - PEEK (AD ♦ (2 
SNUM) 4 1) « 256 

9570 FOR I = SNUM - 1 TO 1 STEP - 1 


GOTO 


* 256 + PEEK (AD 4 (2 « 
1) * 256 - PEEK (AD 4 2 


9580 L(l) = PEEK (AD 4 (1 « 2) 4 3) 

I) 4 2) - PEEK (AD 4 (2 * I) 4 
* I) 

9590 NEXT I 

9600 M = PA 4 TL:TL = 0:AD = AD 4 2 * (SNUM 4 1 ): POKE 216,0 
: GOTO 6220 

10000 PRINT "ERRORE-LA TAVOLA NON ESISTE SU QUESTO DISCO": 
GOTO 9510 


l’utente al punto opportuno del pro¬ 
gramma dopo che sono stati stampati i 
messaggi d’errore o le istruzioni. 

Modifiche 

Il programma nella sua forma attua¬ 
le provvede una griglia di 44 quadrati 
per 32 nella quale tracciare le figure, e 
ogni quadrato della griglia occupa 5 
per 5 punti Hi—Res. Volendo si può 
provare a dare alla griglia dimensioni 
diverse. Il ricorso a un quadrato di 4 
punti per 4 permetterebbe una griglia 
di 55 per 40, ma le minori dimensioni 
del quadrato rendono più difficile di¬ 
segnare per il cursore e per i due tipi di 
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24 

24 

0? 

00 

18 

0320- 

3(5 

2D 

2D 

24 

24 

3F 

3F 

36 

0328- 

00 









blocchi figure distinguibili. Chi dispo¬ 
ne di un monitor potrebbe probabil¬ 
mente farcela con un'quadrato di 3 
punti per 3. 

Un altro miglioramento possibile 
consiste nello scrivere una routine in 
linguaggio macchina che prenda il po¬ 
sto della surboutine DISEGNA LA 


FIGURA GRANDE. Questa routine 
potrebbe essere praticamente uguale 
alla routine di disegno dell’Applesoft, 
ma anziché tracciare soltanto un punto 
disegnerebbe una figura predefinita 
con ciascun vettore. L’accresciuta ve¬ 
locità di questo metodo potrebbe apri¬ 
re la porta a ogni sorta di altre modifi¬ 
che, come il riposizionamento della fi¬ 
gura grande nell’ambito della griglia 
se si restasse senza spazio per tracciare 
lungo un lato. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

-- ^ 
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^cippkz computar 


Gruppo 


Himpu'ihnp 


Apple Ile 

monitor Ile e supporto 
Disk drive aggiuntivo, 
Mouse. 


Macintosh 

512K RAM 


Apple Ile 

128K RAM, 80 colonne 
Duodisk 



sinczlaii“ 

ZX Spectrum 48K 



8 cassette originali, 

2 libri in italiano, 
supergaranzia Rebit. 

£. 365.000 iva inclusa 



SPECTRAVIDEO ROMA 



Commodore 
flfenppkz computar 

olivelli 



• Via Nomentana 265/273 

Tel. 8450078 

• Via L. Bonincontri 105/107 
Tel. 5140792 

• Via Famagosta 33 

Tel. 385408 


Ulteriori informazioni saranno fornite presso i punti vendita. 
































Vi piacerebbe aggiungere ai vostri programmi un menù 

professionale? Qui lo troverete già fatto D05 3i3 «m 

e pronto da inserire in testa al listato, JpLEL.fi 1 

con un risparmio di tempo e una resa che... appiè //c« un 


Quel programma 
si presenta da sé 


F ra tutte le varie tecniche di pre¬ 
sentazione dei menù, adottate nei 
vari programmi, una delle migliori è 
senza dubbio quella che offre una lista 
di tutte le opzioni, una delle quali vi¬ 
sualizzata in campo inverso. Usando 
le frecce sinistra e destra si possono 
evidenziare le scelte una dopo l’altra, 
e quando si arriva a quella voluta basta 
premere il tasto RETURN per far sì 
che il programma salti al punto appro¬ 
priato. 

Questa tecnica non è nuova, ma qui 
la novità è nel far fare all’Apple il lavo¬ 
ro di scrivere un segmento di program¬ 
ma fatto su misura per ciascuna appli¬ 
cazione. 

In altre parole, è stato scritto un 
programma in Applesoft che chiede 
tutte le informazioni necessarie, scrive 
un file di testo contenente tutte le linee 


di programma occorrenti e quindi lo 
inserisce nel programma di destinazio¬ 
ne con il comando EXEC. 

Questo programma è l’AUTO- 
SCHERMO (Listato 1). Per utilizzare 
l’AUTOSCHERMO tutto quello che 
si deve fare è digitarlo in memoria e 
salvarlo su dischetto. Con questo pro¬ 
gramma si può creare un segmento di 
programma in Applesoft, esente da 
errori, anche per uno schermo di sele¬ 
zione complesso, in non più di due 
minuti. 

Il segmento di programma impie¬ 
gherà numeri di linea iniziale e incre¬ 
menti scelti dall’utente. Il segmento di 
programma può essere addirittura uti¬ 
lizzato "stand-alone" (da solo) come 
programma HELLO, per scegliere fra 
un massimo di 20 programmi da ese¬ 
guire con RUN o con BRUN. 


Utilizzo 

Quando si fa RUN AUTOSCHER- 
MO il programma invita a introdurre 
un numero di linea iniziale e un incre¬ 
mento. In tal modo potete adattare su 
misura il segmento di programma ge¬ 
nerato al programma di destinazione, 
oppure accettare i valori di default 
premendo RETURN. 

Viene poi chiesto se si vogliono ri¬ 
ghe d’intestazione alla sommità dello 
schermo di selezione generato. Se ri¬ 
spondete con S, potrete poi introdurre 
una o più stringhe, ognuna delle quali 
comparirà, centrata, in una linea in 
campo inverso alla sommità dello 
schermo. Si può migliorare l’estetica 
introducendo soltanto spazi, con il ri¬ 
sultato di una linea bianca continua. 
Con una linea di questo tipo sopra la 


tttttttttttttttttttttttttttttttttttttttt 

t 


* 

t 

AUTOSCHERMO 

* 

t 


* 

t 

DI DON RAMEY 

t 

t 


* 


IS5M 1 

1221 ACCETTA IL MALORE DI DEFAULT i 

NO 

LINEA INIZIALE PER LA ROUTINE 

9000 

NO 

INCREMENTI LINEA IO 


MUO I 

RIGA CRIGHE- D'INTESTAZIONE i 

DENTRA- 

TA <: 

CENTRATE;- ALLh SOMMITÀ' DELLO 

SCHER- 

MO 7 

< S n :■ 



Figura 1. La routine parte automaticamente dalla riga 9000. 
Se il programma al quale viene agganciata non ha un 
numero superiore, basta battere RETURN. 


ì AUTOSCHERMO 

t * 

t DI DON RAUEY * 

% ^ 

ACCETTA IL MALORE DI DEFAULT... 


NO LINEA INIZIALE PER LA ROUTINE 9600 
NO INCREMENTI LINEA 10 

MUOI RIGA < RIGHE!) D'INTESTAZIONE CENTRA¬ 
TA <CENTRATE > ALLA SOMMITÀ' DELLO SCHER¬ 
MO? (S/N) S 

DOPO L'ULTIMA RIGA SOLO 


APPLICANDO 15/85 

n 


Figura 2. Il menù che si ottiene con AUTOSCHERMO può 
contenere un’intestazione iniziale che verrà presentata sul 
video in Inverse e centrata. 
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INTRODURRE Lh UOCE DI SELEZIONE NO 1 
SINTETIZZATORE 

INSERITE IL COMANDO ESATTO CHE UA ESE- 
G jJ l T0^ ILEZIONE < ES . MttiMffl 


PRINTD$"RUN SINTETIZZATORE"! 


Figura 3. Questa opzione serve a inserire il nome di un 
programma e il relativo comando di servizio per esempio 
PRINT DS$ “RUN (nome programma)” per farlo partire. 


Figura 4. Ecco come si presenta il menù principale di un 
dischetto che contiene quattro programmi. Il risultato è 
ottenuto in pochi minuti con AUTOSCHERMO. 


linea del titolo e un’altra sotto si ottie¬ 
ne un risultato molto professionale. 

L’introduzione del solo RETURN 
mette fine all’introduzione dell’inte¬ 
stazione, pulisce lo schermo, visualiz¬ 
za l’intestazione appena creata e dà 
inizio a una serie di prompt ripetuti. 

Per tutte le opzioni che si vogliono 
avere sullo schermo di menù (fino a 
20, a meno che non si siano specificate 
righe d’intestazione multiple) verrà 
chiesta la "voce di selezione" (vale a 
dire che cosa dovrebbe apparire sullo 
schermo) e poi distruzione di azione" 
che deve essere eseguita quando si sce¬ 
glie quell’opzione. L’istruzione di 
azione può essere qualsiasi valida 
istruzione Applesoft o comando DOS 
(non dimenticate il control—D), com¬ 
prese le istruzioni multiple separate da 
due punti (:), purché la linea da intro¬ 
durre contenga meno di 40 caratteri in 
totale. Basta premere il tasto RE¬ 
TURN per mettere fine a questa sezio¬ 
ne del programma e avere una VE¬ 
DUTA PRELIMINARE dello scher¬ 
mo generato. Adesso se volete cam¬ 
biare una voce di selezione o un’istru¬ 
zione di azione, potete farlo premen¬ 
do "C" mentre la voce è evidenziata. 
Notate che per questo esame prelimi¬ 
nare premendo il tasto RETURN si 
avrà la stampa (PRINT) dell’istruzio¬ 
ne di azione alla base dello schermo 
per la sua verifica, anziché l’effettiva 
esecuzione quale verrà fatta nel pro¬ 
gramma generato definitivo. 

Premendo il tasto ESCAPE si inco¬ 
mincia il processo di scrittura del seg¬ 
mento di programma generato in un 
file di testo denominato SELECT 
.SEG sul proprio dischetto. Il pro¬ 
gramma comunicherà poi all’utente il 


blocco di numeri di linea occupato dal 
segmento generato. 

Se almeno parte del programma di 
destinazione in Applesoft è già salvata 
come file su dischetto, la si deve ora 
caricare. Si deve essere certi che non 
esistano conflitti di numero di linea 
listando il programma dal numero di 
linea iniziale al numero di linea finale, 
come riferito dall’AUTOSCHER- 
MO. Poi fate EXEC SELECT.SEG 
per aggiungere il segmento generato al 
programma in memoria. Può darsi che 
nel corso di questa operazione il moto¬ 
re del drive si avvìi e si fermi varie 


volte, mentre i caratteri di prompt del- 
l’Applesoft scorrono in giù lungo il la¬ 
to sinistro dello schermo. Pazientate 
un attimo e assicuratevi che tutta l’atti¬ 
vità sia terminata prima di cercare di 
introdurre qualsiasi altra cosa. Poi sal¬ 
vate il programma che contiene il seg¬ 
mento della nuova subroutine. 

Se non avete ancora introdotto il 
programma di destinazione, e volete 
farlo adesso, battete NEW (per elimi¬ 
nare dalla memoria altre eventuali li¬ 
nee di programma) poi fate EXEC 
SELECT.SEG come sopra. Potete co¬ 
sì listare il segmento generato e comin- 


Listato 1 


10 REM a********************* 

11 REM * AUTOSCHERMO * 

12 REM » DI DON RAVEY * 

13 REM * COPYRIGHT (C) 1985 * 

14 REM * BY APPLICANDO 4 * 

15 REM * M1CR0SPARC, INC * 

16 REM a********************* 

20 DIM SI«20).SA$<20) 

30 0$= CHR$ (34):D$ = CHR$ (4) 

99 GOTO 199: REM :iSUBROlTINES: 

100 VTAB 22: INVERSE : PRINT D PREMI UN TASTO QUALUNQUE PER CON 
TINUARE. 1 : N0RMAL 

101 WAIT - 16384.128,1: P0KE - 16368,0: RETURN 

102 PRINT STI;“ (S/N) GET Al: PRINT A*:SI = A* = B S B : RETURN 

109 REM ** RICEVE UNA STRINGA CHE HA ** ESATTAMENTE I 

CARATTERI « INTRODOTTI, COMPRESE ** VIRGOLE E VI 
RG0LETTE... 

110 P0KE - 16368,0:S* = BB :HT = 1 

112 FLASH : PRINT 8 N0RMAL :K = PEEK ( - 16384): IF K < 1 

28 THEN P0KE 36, PEEK (36) - 1: GOTO 112 
114 K = K - 128: IF K = 13 THEN P0KE 36, PEEK (36) - 1: CALL - 
868: PRINT : GOTO 120 

116 IF (K = 8 OR K = 21) AND LEN (SI) < 2 THEN SI = BB : HTAB 
HT: CALL - 868: P0KE - 16368,0: GOTO 112 




68 








11? IF K = 8 THEN SI = LEFTI (SI. LEN (SI) - 1): POKE 36, PEEK 
(36) - 2: CALI - 868: POKE - 16368,0: GOTO 112 

118 SI = SI ♦ CHRI (K): POKE 36. PEEK (36) - 1: PRINT CHRI (K 

):: POKE - 16368,0: GOTO 112 
120 RETURN 

149 REM ** SPOSTA IL CURSORE INVERSO ** DALLA VOCE '0 

S' *# ALLA VOCE ’CS’ 

150 VTAB HL + 2 + OS + OS *'<S ( 10): HTAB HT: PR1NT SIKOS) 

152 VTAB HL + 2 ♦ CS + CS * (S < 10): INVERSE : HTAB HT: PR1NT 

Sll(CS): NORMAL 
154 RETURN 

199 REM : : : .'PROGRAMMA PRINCIPALE: : : : 

200 ASI = ****************************************** 

202 BSI = ■* *■ 

300 TEXT : HOME : VTAB 2: PR1NT ASI;8SI; 

310 PR1NT "* A U T 0 S C H E R M 0 *"; 

320 PRINT BSI;"* DI DON RAVEY *";BSI;A 

SI 

325 VTAB 22: PRINT "(01985 BY APPLICANDO 4 MICROSPARC,INC." 

330 'VTAB 14: HTAB 6:ST! = "VUOI LE ISTRUZIONI? ": GOSUB 102 
340 1F NOT SI THEN 1000 

350 HOME : HTAB 9: INVERSE : PRINT "A U T 0 S C H E R M 0": NORMAL 

360 PRINT : PRINT "QUESTO PROGRAMMA CREERÀ' UN FILE DI TE- STO 
CONTENENTE UNA ROUTINE PER UN 'MENU'DI SELEZIONE' CHE PUÒ 
■' ESSERE MESSA CON EXEC IN UN PROGRAMMA IN APPLESOFT.": PRINT 

380 PRINT "SI PUÒ' SCEGLIERE SE AVERE 0 NO UN'INTE-STAZIONE AL 
LA SOMMITÀ' DELLO SCHEDO. LE SCELTE SARANNO FATTE USAND 
0 LE FRECCESINISTRA E DESTRA, COME SPIEGATO IN FONDO A 
LLO SCHERMO." 

390 PRINT 

400 PRINT "SARAWO CHIESTE 'VOCI DI SELE21ONE'<CQMEN0M1 DI PRO 
GRAMMI, 0 NOMI DI OPZIONI DEIPRQGRtftll) ... E COMANDI DI ’ 
AZIONE’ PER": 

410 PRINT "CIASCUNA VOCE (ESATTAMENTE COME LI INTRODURRESTE IN 
LINEE DI’ PROGRAMMA .. ": INVERSE : PRINT "GOTO 550":: NORMAL 
: PRINT * OPPURE ":: 1WERSE : PRINT "PRINT ";Q$;" RLN AB 
C’:QI; : NORMAL : PRINT "," 

420 PRINT "COMPRESI I CARATTERI DI CONTROLLO, COME CONTRQL-D P 
ER I COMANDI DOS, ECC." 

450 GOSUB 100: HOME : GOTO 1000 
500 REM 

999 REM ** CHIEDE NO. DI LINEA ** 'VALORI E RIGHE 
** D’INTESTAZIONE... 

1000 'VTAB 9: CALL - 958: INVERSE : PRINT "RETURN";: NORMAL : PRINT 
" ACCETTA IL VALORE DI DEFAULT...” 

1010 VTAB 11: PRINT "NO. LINEA INIZIALE PER LA ROUTINE: 9000"; 

: POKE 36, PEEK (36) - 4 
1020 LS = 9000: INPUT *";LSI 
1030 IF LEN (LSI) ) 0 THEN LS = VAL (LSI) 

1040 VTAB 11: HTAB 35: CALL - 868: PRINT LS 

1050 LN = LS: 1F LS = 0 THEN 1010 

1060 VTAB 13: PRINT "NO. INCREMENTI LINEA: IO";: POKE 36, PEEK 
(36) - 2 

1070 LI = 10: INPUT "‘:LII 

1080 IF LEN (DI) > 0 THEN LI = 'VAL (LII) 

1090 VTAB 13: HTAB 23: CALL - 868: PRINT LI 

1100 IF LI = 0 THEN 1060 

1110 HL = 0: VTAB 15: PRINT "VUOI RIGA (RIGHE) D INTESTAZIONE C 
ENTRA-TA (CENTRATE) ALLA "; 

1120 STI = "SOMMITÀ' DELLO SCHER-MO? ": GOSUB 102 
1130 IF NOT SI THEN 2000 
1140 VTAB 18: PRINT " 

1150 INVERSE : PRINT "RETURN";: NORMAL : PRINT ", DOPO L’ULTIM 
A RIGA SOLO “;: INVERSE : PRINT "RETURN"; : NORMAL : PRINT 

*.": PRINT „ . 

Continua 


dare a introdurre il nuovo program¬ 
ma. In qualunque momento, natural¬ 
mente, potete salvare il programma 
usando il nome che preferite. 

Dopo aver usato due o tre volte 
l’AUTOSCHERMO per fare pratica, 
dovreste essere in grado di generare 
schermi di selezione anche per dieci o 
quindici opzioni nel giro di un paio di 
minuti. Fate il confronto con le ore di 
programmazione e di debugging che 
occorrerebbero per programmare da 
zero un’analoga subroutine. 

Variabili 

Nel segmento di programma gene¬ 
rato verranno usate le variabili indica¬ 
te qui sotto, e pertanto si deve o evita¬ 
re di usare gli stessi nomi nel proprio 
programma, o apportare gli opportuni 
cambiamenti al segmento di program¬ 
ma dopo averne fatto l’EXEC nel pro¬ 
prio programma: 


Q$ CHR$ (34) - le virgolette ("); 
HL Numero delle righe di intestazio¬ 
ne; 

SN Numero delle voci di selezione; 
HL$ ( ) Matrice stringa contenente la 
linea (o le linee) di intestazione; 

SI$ ( ) Matrice stringa contenente le 
voci di selezione; 

HT Valore di tab orizzontale per le 
voci di selezione; 

CS Variabile contenente il numero di 
selezione corrente; 

OS Variabile contenente il numero di 
selezione precedente; 

K Variabile contenente il valore 
-16384 (tasto battuto); 

X Indice per i loop. 


Autoschermo 
riga per riga 

Le linee 20 e 30 dimensionano le 
matrici che occorrono e assegnano le 
variabili per due utili caratteri: le vir¬ 
golette (") e control-D. Le linee da 
100 a 154 sono subroutine, le esamine¬ 
remo meglio più avanti. Le linee da 
200 a 340 creano la "pagina d’intesta¬ 
zione" che compare quando viene ese¬ 
guito questo programma, e le linee da 
350 a 450 presentano le istruzioni all’u¬ 
tente se le desidera. Si notino le chia¬ 
mate di subroutine nelle linee 330 (per 
avere una risposta SI o NO) e nella 
linea 450 (per avere la battuta di tasto 
per continuare). 

Esauriti questi preliminari, le linee 
da 1000 a 1180 si procurano dall’utente 
i dati concernenti il numero di linea 
iniziale e l’incremento per il segmento 
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■UTOSCHERMO 


PRINTO$"RUN AUTQSCHERHO" 


UJOUA I 


. ACCETTA LA RIGA .0 INTRODUCI UNA 
RIGA. . 


FATTO 


T [ 

SE 


SEGMENTO DI PROGRAMMA 'SCHERMO DI 
LEZIONE 1 E' CONTENUTO NEL FILE 

ELECT.SEG" 

01 BATTERE 1 ENEC SELECT.SEG' NEL TUO 
OGRAMMA DI DESTINAZIONE. OCCUPERÀ’ I 
MERI DI LINEA DA KKBR] A 


Figura 5. Se nella preparazione del menù si dovesse commettere Figura 6. A questo punto, con un semplice EXEC la routine 
qualche errore, c’è la possibilità di correggere. si aggancia al o ai programmi desiderati. 


di programma da generare, e inoltre le 
stringhe da usare come righe d’intesta¬ 
zione. Tenete nota del numero delle 
righe d’intestazione come variabile 
HL, mentre il numero di linea iniziale 
e l’incremento sono memorizzati ri¬ 
spettivamente come LS e LI. 

Per ciascuna riga d’intestazione che 
si desidera, la linea 1170 richiama la 
subroutine che va dalla linea 110 alla 
120. Questa agisce in modo molto si¬ 
mile a quanto fa l’istruzione INPUT, 
ma accetta virgole, virgolette, due 
punti e caratteri di controllo e li mette 
nella stringa S$ fino a quando viene 
introdotto un RETURN. 

Le linee da 2000 a 2080 invitano a 
ripetizione l’utente a introdurre una 
"voce di selezione", poi a introdurre i 
comandi DOS o le istruzioni Apple¬ 
soft appropriati a quella scelta. Posso¬ 
no essere introdotte fino a un massimo 
di 20 scelte e le loro istruzioni di "az¬ 
ione". Ogni volta che si risponde alla 
richiesta di una "voce di selezione" sol¬ 
tanto con RETURN, il programma 
salta a linea 3000, tenendo il numero 
delle voci di selezione come variabile 
S, le voci di selezione nella matrice 
stringa SI$ e le istruzioni di azione nel¬ 
la matrice stringa SA$ ( ). Si noti che 
per ottenere queste voci di dati viene 
usata la subroutine 110, come la si era 
usata per le stringhe delle righe d’inte¬ 
stazione. 

La linea 3010 determina la lunghez¬ 
za della più lunga delle stringhe delle 
voci di selezione (HM) e la linea 3020 
assegna a HT, sulla base di quella lun¬ 
ghezza massima, un valore da usare 
come valore di HTAB per tutte le voci 
di selezione. Lo si fa per ragioni di 
estetica: tutte le voci di selezione sa¬ 
ranno rientrate in modo uguale di una 
quantità che centra la linea più lunga 


sullo schermo. 

La sezione del programma che va da 
linea 4000 a linea 4350 visualizzerà lo 
schermo di selezione che è stato crea¬ 
to, e permetterà di cambiare qualsiasi 
voce di selezione o istruzione d’azione 
prima di generare il file di testo. Que¬ 
sto schermo "modello" funziona pro¬ 
prio come farà quello definitivo, tran¬ 
ne il fatto che quando si preme il tasto 
RETURN le istruzioni di azione, inve¬ 
ce di essere eseguite, sono soltanto 
stampate alla base dello schermo in 
modo che le si possa controllare. Se si 
vuol correggere una voce lo si può fare 
premendo "C" mentre la voce di sele¬ 
zione è evidenziata in campo inverso. 
Compariranno sia la voce di selezione 
sia l’istruzione d’azione, con il cursore 
lampeggiante sul primo carattere della 
voce. Premendo il tasto RETURN si 
lascerà la voce come è; qualsiasi altro 
tasto darà inizio a una stringa sostituti¬ 
va. Lo stesso vale per l’istruzione di 


azione. Infine con ESCAPE viene ac¬ 
cettato l’intero schermo e viene scritto 
il file di testo SELECT.SEG. Se in 
precedenza si era salvato sul dischetto 
un file con quel nome, esso sarà can¬ 
cellato prima che venga scritto il nuo¬ 
vo file. 

Funzionamento 

La maggior parte della sezione "di¬ 
splay" usa la stessa logica di program¬ 
ma che userà il programma definitivo. 
La linea 4010 stampa le righe di inte¬ 
stazione, se ce ne sono, in campo in¬ 
verso, centrate. Si noti che se HL (il 
numero di righe d’intestazione) è zero 
(un "falso" booleano) saranno eseguiti 
solo i comandi TEXT e HOME della 
linea 4010; il resto della linea verrà 
saltato in conseguenza del fatto che la 
condizione IF è risultata falsa al test. 

Il loop nelle linee da 4030 a 4060 
stampa le voci di selezione sullo scher- 


Figura7. A 
questo 
punto, con un 
semplice 
EXEL, la 
routine si 
agganciasi o 
ai programmi 
desiderati. 



70 











1160 HT = 1 

1170 GOSUB 110:HLKHL) = SI: IF LEN (HLKHD) < ) 0 THEN HL = 

HL t 1:SI = GOTO 1170 

1180 FOR X = 0 TO HL:XI = ": FOR Y = 1 TO (41 - LEI‘4 <HLKX>> 

) / 2: XI = XI ♦ ‘ : NEXT Y:HLI(X> = XI + HLI(X) + XI:HLI( 

X) = LEFTI (HLI(X),40)s NEXT X 
1900 REM 

1999 REM ** RICEVE OGNI VOCE DI ** SELEZIONE E 1 COMAN 
DI ** D'AZIONE... 

2000 HOME : IF HL < > 0 THEN INVERSE : FOR X = 0 TO HL - 1 : PRINT 
HLKX) : : NEXT X: NORMAL : PRINT 

2010 S = 1 

2020 VTAB HL + 2: HTAB 1 : CALL - 958: PRINT ‘INTRODURRE LA VO 
CE DI SELEZIONE NO. ‘:S;‘:‘: PRINT 
2030 GOSUB 110:SII(S) = SI: PRINT 
2040 IF LEN <SII(S>) = 0 THEN S = S - 1: GOTO 3000 
2050 PRINT ‘INSERITE IL COMANDO ESATTO CHE VA ESE- GUITO IN Q 
UESTA SELEZIONE..(ES./:: INVERSE : PRINT ‘GOT0550‘:: NOR1AL 
: PRINT * OPPURE ”:: INVERSE : PRINT "PRINT ”;QI;' BRUTI XY 
Z‘;QI;: NORMAL : PRINT ‘ ..." 

2060 PRINT ‘NON DIMENTICATE IL CONTROL-D PER IL DOS!’: PRINT 
2070 GOSUB 110:SAI(S) = SI: REM RICEVE LA RIGA ESATTA. 

2080 S = S ♦ 1 : GOTO 2020 
2090 REM 

3000 REM 'CENTRA' I DISPLAY: 

3010 FOR X = 1 TO S: IF LEN (S1KX» > HM THEN M = LEN (SII 
(X)): NEXT 

3020 HT = 1NT (20 - HM / 2) ♦ (HM = 0) 

4000 REM : : : :DISPLAY: : : : 

4010 TEXT : HOME : IF HL THEN INVERSE : FOR X = 0 TO HL - 1 : PRINT 

HLKX);: NEXT : NORMAL : PRINT 
4020 CS = 1 : REM SCELTA CORRENTE 
4030 FOR X = 1 TO S: IF X = CS THEN INVERSE 

4040 'VTAB HL + 2 + X + X * <S < 10) 

4050 HTAB HT: PRINT SIKX): NORMAL 
4060 NEXT 

4070 'VTAB 23: INVERSE : PRINT *<-■;: NORMAL : PRINT * ‘ ; : INVERSE 
: PRINT NORMAL : PRINT ' SCEGLIERE .... ‘; : INVERSE 

: PRINT ‘RETURN 1 ;: NORMAL : PRINT ‘ ESEGUIRE.” 

4080 VTAB 24: HTAB 3: FLASH : PRINT ‘C‘;: NORMAL : PRINT ‘ CAM 
BIARE ... ‘;: FLASH : PRINT ”ESC";: NORMAL : PRINT ‘ ACCET 
TARE.”; 

4090 POKE - 16368.0 

4100 K = PEEK ( - 16384): IF K < 128 THEN 4100 
4110 POKE - 16368,0:K = K - 128: IF K ( > 8 AND K < >21 AND 
K ( ) 13 AND K < > 27 AND K < >67 THEN 4100: REM I 

SOLI TASTI ACCETTABILI 
4120 VTAB 21 : HTAB 1 : CALL -868 
4130 OS = CS 

4140 IF K = 8 THEN CS = CS - 1:CS = CS * (CS ) 0) + S « (CS = 

0): GOSUB 150: GOTO 4100: REM FRECCIA SINISTRA 

4150 IF K = 21 THEN CS = CS + 1:CS = CS * (CS ( = S) + (CS = 

S + 1): GOSUB 150: GOTO 4100: REM FRECCIA DESTRA 

4160 IF K = 13 THEN 'VTAB 21: PRINT ” ‘;SAI(CS>: GOTO 4100: REM 

C.R. 

4170 IfY= 27 THEN 6000: REM 'ESC' - SCRIVE IL FILE 
4180 REM K DEVE ESSERE 67 ('C')... 

4190 HOME : VTAB 22: INVERSE : PRINT ‘RETURN’;: NORMAL : PRINT 
’ ACCETTA LA RIGA..0 INTRODUCI UNA NUOVA RIGA...” 

4200 VTAB 4: HTAB HT: PRINT S1KCS): 'VTAB 7: HTAB HT: PRINT SA 
KCS) 

4210 VTAB 4: FLASH : HTAB HT: PRINT LEFTI (SII(CS).l);: NORMAL 


mo, con una delle voci stampata in 
campo inverso, cioè quella corrispon¬ 
dente alla variabile della "scelta cor¬ 
rente", CS. La linea 4040 metterà fra le 
voci la doppia spaziatura se ce ne sono 
meno di dieci. Dipende se è vera o 
falsa (1 o 0) l’espressione booleana, 
"SCIO". 

La linea 4070 non fa che stampare 
sullo schermo alla riga 23 la riga di 
promemoria. La linea 4080 stampa la 
linea d’istruzione in più per il display 
"modello", e dopo che è stato pulito lo 
strabe di tastiera a linea 4090 entriamo 
in un loop a linea 4100 per controllare 
se sia stato premuto un tasto. La linea 
4110 controlla quale tasto sia stato 
premuto. Per essere accettabile deve 
essere uno dei seguenti, altrimenti il 
controllo torna a linea 4100 per cercar¬ 
ne un altro: 


ASCII 8 = freccia sinistra 
ASCII 13 = return 
ASCII 21 = freccia destra 
ASCII 27 = tasto Escape 
ASCII 67 = C 


La linea 4120 pulisce la linea che è 
utilizzata per verificare le istruzioni 
d’azione. La linea 4130 imposta la va¬ 
riabile di "vecchia scelta" OS in modo 
che sia la "scelta corrente", CS. Poi se è 
stata premuta la freccia sinistra o de¬ 
stra la linea 4140 o 4150 sottrae o ag¬ 
giunge uno a CS, aggiusta CS se esce 
dall’arco compreso fra 1 e S (il numero 
delle scelte) e richiama la subroutine 
(linee da 150 a 154) che stampa la 
"vecchia" scelta in normale e la "nuova" 
scelta in campo inverso. 

Per determinare la posizione di 
VTAB delle due voci di selezione in 
questa subroutine viene impiegato lo 
stesso algoritmo usato per stampare 
l’intera lista, alla linea 4040. Dopo che 
il "cursore" è stato spostato, il pro¬ 
gramma torna a linea 4100 per indivi¬ 
duare la nuova battuta di tasto. 

Se invece di una freccia viene pre¬ 
muto il tasto RETURN, la linea 4160 
stamperà l’istruzione di "azione" sulla 
riga 21 dello schermo, per la verifica. 
Nel programma definitivo, natural¬ 
mente, l’azione sarà eseguita anziché 
stampata. Se viene premuto il tasto 
ESCAPE, il controllo del programma 
salta alla linea 6000, cioè al segmento 
che scrive il file di testo. 

Cambiare le scelte 


4220 K = PEEK ( - 16384): IF K 
4230 POKE - 16368,0: HTAB HT: 
PRINT SIKCS) : GOTO 4270 


< 128 THEN 4220 

CALL - 868: IF K = 128 + 13 THEN 

Continua 


Dato che tutte le altre possibilità 
sono state esplorate, se l’esecuzione 
del programma giunge fino a questo 
punto, il tasto che è stato premuto de- 


■MH 
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ve essere necessariamente la lettera 
"C". Le linee da 4190 a 4350 sostitui¬ 
scono temporaneamente il "modello" 
del nostro schermo di scelta con la vo¬ 
ce di selezione e l’istruzione di azione 
relative alla "scelta corrente" al mo¬ 
mento in cui è stato premuto "C", e 
anche una linea di istruzione. Il curso¬ 
re compare come primo carattere lam¬ 
peggiante della voce di selezione. Se si 
preme il tasto RETURN a questo pun¬ 
to (siamo a linea 4220) la voce di scelta 
resta immutata e il cursore lampeg¬ 
giante si sposta sul primo carattere 
dell’istruzione di azione. Se si è pre¬ 
muto un tasto qualunque, con l’ecce¬ 
zione di RETURN, viene stampato 
quel carattere, cancellata la linea fino 
alla fine, stampato uno spazio lampeg¬ 
giante come cursore e definito S$ co¬ 
me carattere che è stato introdotto (li¬ 
nea 4240). Poi viene controllata la bat¬ 
tuta del tasto seguente, e quando ne 
viene ricevuta una, viene introdotta la 
subroutine delle linee 110—120. 

Poi si ripete la scena con l’istruzione 
d’azione. Il punto essenziale di tutto 
questo è che l’utente può tornare in¬ 
dietro e cambiare le voci di selezione o 
le istruzioni di azione fino a quando 
vanno bene prima che il segmento di 
programma venga scritto su dischetto 
come file di testo. 

Subroutine di input 

Le linee da 110 a 120 sono una rudi¬ 
mentale imitazione di quello che fan¬ 
no normalmente le routine del moni¬ 
tor dell’Apple. Però certi caratteri 
vengono esclusi e non è permessa la 
loro cattura in una stringa di input da 
tastiera. A linea 110, lo strobe di ta¬ 
stiera viene pulito e la stringa S$ viene 
impostata su "nullo" (niente del tutto). 
Poi nella linea 112 viene stampato un 
cursore lampeggiante (usando il punto 
e virgola, di modo che non sia inviato 
un fine linea) e viene controllato se sia 
stato premuto un tasto. Se NON è sta¬ 
to premuto un tasto (vale a dire il valo¬ 
re nella locazione -16384 è inferiore a 
128) viene fatto il reset della posizione 
orizzontale del cursore (in modo di 
non far avanzare il cursore) e si ripete 
il loop. 

Se È STATO premuto un tasto, il 
test IF è falso e si scende alla linea 114. 
Per rendere più facile l’interpretazio¬ 
ne del programma si sottrae 128 dal 
valore nella locazione -16384, e si ha 
così il valore ASCII diretto del tasto 
che è stato premuto. Se quel tasto era 
RETURN (ASCII 13) si "arretra" di 
un carattere sullo schermo (decremen- 


tando la posizione orizzontale del cur¬ 
sore, locazione 36), e la linea viene 
cancellata fino alla fine (CALL —868) 
spegnendo il cursore lampeggiante; si 
fa un PRINT, per concludere la serie 
dei PRINT seguiti da punto e virgola, 
e si salta all’istruzione di ritorno dalla 
subroutine a linea 120. Funzionerebbe 
lo stesso se GOTO 120 fosse sostituito 
con RETURN, ma la tecnica adottata 
mantiene l’unità della subroutine (una 
sola uscita dalla routine), ed è questa 
una buona prassi alla quale abituarsi. 

Comando 
di spazio indietro 

L’altro tasto speciale che viene uti¬ 
lizzato è la freccia sinistra (o tasto di 


"spazio indietro", ASCII 8), per poter 
correggere gli errori fatti nell’introdu¬ 
zione di una stringa. Se ci sono già 
nella stringa almeno due caratteri pri¬ 
ma che sia premuto uno spazio indie¬ 
tro, la linea 116 IF risulta falsa al test e 
la linea 117 provvede all’arretramento 
di uno spazio abbreviando la stringa 
che stiamo formando (si veda il para¬ 
grafo seguente), arretrando il cursore, 
cancellando fino alla fine della linea e 
tornando indietro in loop alla ricerca 
di un’altra battuta di tasto. Ma se la 
freccia sinistra venisse premuta o pri¬ 
ma che fosse stato premuto qualsiasi 
altro tasto o proprio dopo il primo ca¬ 
rattere della stringa l’"arretramento" 
del cursore porterebbe a una posizio¬ 
ne indesiderata del cursore stesso (un 
valore negativo non valido se si è parti- 


4240 PRINT CHR$ <K - 128);: FLASH : PRINT ‘ ';: NORMAL : POKE 
36.HT + 1:8$ = CHR$ <K - 128) 

4250 K = PEEK ( - 16384): IF K < 128 THEN 4250 
4260 POKE - 16368,0: GQSUB 114:S1$(CS) = 9$ 

4270 POKE - 16368,0: VTAB 4: HTAB UT : PRINT SWCS) 

4280 VTAB 7: FLASH : HTAB HT: PRINT LEFT$ (SA$(CS),1);: NORMAL 

4290 K = PEEK < - 16384): IF K < 128 THEN 4290 
4300 POKE - 16368,0: HTAB HT: CALL - 868: IF K = 128 + 13 THEN 
PRINT SM(CS): GOTO 4340 

4310 PRINT CHR$ (K - 128):: FLASH : PRINT ' NORMAL : POKE 
36,HT + 1:S$ = CHR* (K - 128) 

4320 K = PEEK ( - 16384): IF K < 128 THEN 4320 
4330 POKE - 16368.0: GQSUB 114:SA$(CS) = Si 
4340 VTAB 7: HTAB 1: PRINT SA$(CS) 

4350 GOTO 4000 

5999 END 

6000 REM : : : SCRIVE IL FILE::: 

6010 HOME : VTAB 10: INVERSE : PRINT 'STO CREANDO IL FILE DI T 
EST0:SELECT.SEG.‘: NORMAL 
6020 PRINT DI 1 OPEN SELECT.SEG' 

6030 PRINT Di’CLOSE* 

6040 PRINT DTDELETE SELECT.SEG* 

6050 PRINT Of'OPEN SELECT.SEG’ 

6060 PRINT DVUR1TE SELECT.SEG' 

6070 IF S > 10 THEN PRINT LNj'ONERR GOTO";LN + LI * 2:LN = LN 
+ LI 

6080 IF S > 10 THEN PRINT LN;'D1HSI$C;S;')':LN = LN + LI 
6090 PRINT LN:'P0KE216,0:HT=';HT;“:SN=';S;':O$=CHR»(34)'j: IF 
HL THEN PRINT ":HL=';HL; 

6100 PRINT 

6110 IF N0T HL THEN 6190 
6120 F0R X = 0 T0 HL - 1:S$ = ”:LN = LN ♦ LI 

6130 F0R Y = 1 T0 LEN <HL$<X)):CQ$ = MIDI (HLIOO.Y.l): IF C 

0$ = 0$ THEN S$ = SI + 0$ + '+Q$+* + 0$: GOTO 6150 
6140 Si = S$ + COI 
6150 NEXT Y 

6160 PRINT LN;’HL$(';X;')=';0$;S$;Q$ 

6170 NEXT X 

6190 F0R X = 1 T0 S-.Si = *':LN = LN ♦ LI 

6200 F0R Y = 1 T0 LEN <S1$(X)):CQ$ = M1D$ <SI$(X).Y.l): IF C 

0$ = Gl THEN S$ = S$ + G$ + '+Qi+' + 0$: GOTO 622Ù 
6210 Si = Si + CQ$ 

6220 NEXT Y 

6230 PRINT LN;'SI$(*;X;')=';Q$;S$;Q$ 
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ti nella colonna 1 dello schermo). La 
linea 116 controlla prima se sia così e 
gestisce la situazione reimpostando le 
cose come erano quando è stata intro¬ 
dotta la subroutine. 

Infine se il tasto premuto non era né 
RETURN né la freccia sinistra, la li¬ 
nea 118 aggiunge alla stringa S$ il ca¬ 
rattere corrispondente al valore 
ASCII battuto (perfino i caratteri di 
controllo!), "retrocede" e stampa il ca¬ 
rattere sullo schermo, pulisce lo strobe 
di tastiera e torna indietro in loop per 
cercare un’altra battuta di tasto. Come 
si può vedere, quando la subroutine 
ritorna il controllo al programma prin¬ 
cipale ("chiamante") S$ contiene la 
stringa desiderata, compresi gli even¬ 
tuali segni di punteggiatura e caratteri 
di controllo. 


Comando 

del cursore inverso 

L’altra subroutine che interessa è 
quella che gestisce il "cursore" in cam¬ 
po inverso, spostandolo dalla "vec¬ 
chia" scelta alla scelta "corrente" quan¬ 
do è stata premuta la freccia sinistra o 
destra. Questa subroutine è a linea 
150-152. Nella parte "Visualizzazi¬ 
one" del nostro programma principa¬ 
le, le linee 4140 e 4150 richiamano 
questa subroutine dopo aver imposta¬ 
to OS (vecchia scelta) sulla scelta cor¬ 
rente (CS), poi, reimpostato CS a se¬ 
conda della freccia che è stata premu¬ 
ta, esegue un aggiustamento se OS va 
a zero o supera il numero delle opzio¬ 
ni. Nel segmento di programma gene¬ 


rato comparirà la stessa logica, ma a 
numeri di linea diversi, a seconda dei 
criteri scelti per la numerazione delle 
linee. 

Dopo aver determinato OS e CS, il 
programma principale fa un GOSUB 
e la nostra routine riscrive semplice- 
mente le due linee; quella "vecchia" in 
NORMAL e quella nuova, "corrente", 
in INVERSE. Il calcolo di VTAB ac¬ 
corda posto al numero delle righe d’in¬ 
testazione più due linee vuote, e alla 
doppia spaziatura fra le scelte se ce ne 
sono meno di dieci. È possibile, natu¬ 
ralmente, che si superi il numero con¬ 
sentito di linee sullo schermo con una 
combinazione di troppe righe d’inte¬ 
stazione e linee di selezione. Sarebbe 
possibile controllare anche questo, ma 
si è ritenuto superfluo in quanto, nella 
maggior parte delle applicazioni, 2 o 3 
righe d’intestazione sarebbero proba¬ 
bilmente il massimo desiderato, e vi si 
può provvedere con questo algoritmo. 
E se il numero delle voci di selezione 
non causa un "overflow" si possono 
usare righe d’intestazione in maggior 
numero. 

Scrivere il file di testo 

Per prima cosa si incontrano, nelle li¬ 
nee 6020-6060, i comandi DOS del 
manuale, che servono per cancellare 
ogni eventuale file esistente denomi¬ 
nato SELECT.SEG, e per aprire poi 
un tale file da scrivere. Di mano in 
mano che ciascuna linea del segmento 
di programma viene scritta nel file, il 
numero di linea (che all’inizio è come 
lo si è specificato a piacere quando 
chiesto dalla linea 1020) è incrementa¬ 
to di LI (che è stato dato dall’utente in 
risposta alla richiesta di linea 1070). 
Anche i riferimenti in avanti sono cal¬ 
colati usando questo incremento. 

Le linee 6070 e 6080 scrivono linee 
nel file di testo solo se c’è la necessità 
di dimensionare la matrice stringa che 
conterrà le stringhe delle voci di sele¬ 
zione. Questo si verifica nell’evenien¬ 
za che ci siano più di dieci voci, dato 
che le matrici dell’Applesoft fanno il 
default all elementi se non esplicita¬ 
mente dimensionate. Si è deciso di 
non usare l’elemento di matrice (0), 
solo per semplificare i riferimenti di 
indice, e quindi in qualsiasi caso si su¬ 
peri dieci, questo vuol dire che la ma¬ 
trice deve essere dimensionata. 

Ma nel caso in cui il segmento di 
visualizzazione sullo schermo potesse 
essere adoperato più di una volta nel 
programma di destinazione finale, 
non sarebbe corretto che il program¬ 
ma si bloccasse con un errore di ?RE- 


6240 NEXT X 

6250 LN = IN t LI: PRINT LNj'TEXT:HQME' 

6260 IF HL THEN LN = LN + LI: PRINT LN;’INVERSE:FORX=OTOHL-1:P 
R1NTHLKX) ; :NEXTX:PRINT :N0RMAL" 

6270 LN = LN + LI: PRINT LN;’CS=1‘ 

6280 LN = LN t LI: PRINT LN;"F0RX=1T0SN:1FX=CSTHEN1NVERSE" 

6290 LN = LN 4 LI : PRINT LN;"VTABHL+2+X+X*(SN<10):HTABHT:PRINTS 

II(X):N0RMAL‘ 

6300 LN = LN 4 LI: PRINT LN:‘NEXTX" 

6310 X» = "VTAB23:INVERSE:PR1NT" 4 Q$ 4 ■<-• 4 Q$ 4 ■;:N0RMAL:P 
RINT" 4 Q* 4 ■ " + 0$ + ";:INVERSE:PRINT* 4 0* 4 ■-)■ 4 Q* 

4 ";:N0RMAL" 

6320 XI = XI 4 1 : PRINT* • 5D ' SELEZIONE .... 8 4 Q| 4 “ ;: 1NV 
ERSE:PRINT" 4 Q* 4 "RETURN" 4 Gl 4 "j:NORMAL:PRINT" 4 Q$ 4 
* ESECUZIONE." 4 Q$ 

6330 LN = LN 4 LI: PRINT LN;XI 

6340 LN = LN 4 LI: PRINT LN;'POKE-16368.0" 

6350 LN = LN + LI : PRINT LN;'K=PEEK<-16384);IFK<128THEN":LN 

6360 LN = LN 4 LI: PRINT LNj"POKE-16368,0:K=K-128:1FK<>8ANDK<>2 

1ANDK013THEN" ;LN - LI 
6370 LN = LN 4 LI: PRINT LN;"GS=CS" 

6380 LN = LN 4 LI: PRINT LN;"IFK=8THENCS=CS-1:CS=CS*<CS>0)+SN*< 

CS=0):GOSUB";LN + LI 4 <2 4 $) * LI:“:GQT0":LN - 3 * LI 
6390 LN = LN 4 LI: PRINT LN:“IFK=21THENCS=CS+1:CS=CS*(CS<=SN>4< 
CS=SN+1):GOSUB";LN 4 Li 4 (1 4 S) * LI;*:G0T0";LN - 4 * LI 

6400 LN = LN 4 LI: PRINT LN;"0NCSG0SUB";LN 4 LI;;LN = LN ♦ LI 

6410 F0R X = 1 T0 S - 1:LN = LN 4 LI: PRINT V;LN;: NEXT X: PRINT 

": GOTO";LS 4 HL * LI 4 S * LI + LI 
6420 LN = LN - S * LI: F0R X = 1 T0 S:LN = LN 4 LI: PRINT LN;SA 
l(X) :RETURN" : NEXT X 

6430 LN = LN 4 LI: PRINT LN ; 'VTABHL+2+0S+0S* < SN<10):HTABHT:PRIN 
TSIK0S)" 

6440 LN = LN 4 LI: PRINT LN;"QTABHL424CS4CS*04< 10):INVERSE:HTA 
BHT:PRINTS1I(CS):N0RMAL:RETUfaT 
6450 PRINT DI'CLOSE" 

6460 VTAB 10: CALL - 868: HTAB 16: PRINT "FATTO" 

6470 VTAB 13: PRINT "IL SEGMENTO DI PROGRAMMA 'SCHERMO DI S 
ELEZIONE' E' CONTENUTO NEL FILE ": PRINT 01:"SELECT.SEG";Q 
I;’." 

6480 'VTAB 16: PRINT "PUOI BATTERE 'EXEC SELECT.SEG' NEL TUO P 
R0GRAMMA DI DESTINAZIONE. OCCUPERÀ' I NWERI DI LINEA DA 
";: INVERSE : PRINT LS;: NORMAL : PRINT " A INVERSE : PRINT 
LN;: NORMAL : PRINT "." 

6490 END 
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DIM’D ARRAY, quindi se occorre 
l’istruzione di dimensionamento DIM 
la si fa precedere da una "trappola di 
errore", la quale continua semplice- 
mente l’esecuzione alla linea che se¬ 
gue l’istruzione di dimensionamento. 
Questo è in pratica il primo esempio di 
calcolo di un "riferimento in avanti": 
LN 4- LI * 2, ossia due linee oltre il 
numero di linea corrente. 

Il numero di linea successivo fa il 
reset della condizione ONERR (PO- 
KE 216,0) e inizializza le variabili per 
HT (valore di HTAB per la visualizza¬ 
zione della voce di selezione), SN (nu¬ 
mero delle scelte) e HL (numero delle 
righe d’intestazione). Si noti che que¬ 
st’ultimo viene omesso se l’utente non 
ha chiesto righe d’intestazione. Dato 
che tutte le precedenti istruzioni 
PRINT vengono fatte seguire da un 
punto e virgola in modo che tutte quel¬ 
le istruzioni entrino a far parte della 
stessa linea, occorre un ulteriore 
PRINT a linea 6100 per chiudere la 
linea e inviarla al file di testo. 

Il blocco seguente (6120—6170) vie¬ 
ne saltato se non ci sono righe d’inte¬ 
stazione. Altrimenti ogni riga d’inte¬ 
stazione viene convertita in stringa, 
carattere per carattere, nel loop che va 
da linea 6130 a linea 6150. Questo per¬ 
ché si vuole ammettere le virgolette 
nell’intestazione e nelle voci di sele¬ 
zione, e quindi occorre essere in grado 
di passare il carattere ASCII 34 al file 
di testo. Ma se esso viene passato co¬ 
me parte della stringa, si guardi qual è 
la conseguenza quando si racchiude la 
STRINGA fra virgolette, come si do¬ 
vrebbe fare per creare un’istruzione 
che definisca la stringa nel segmento 
del programma: 

9150 HL$ (l)="QUESTO È UN CA¬ 
SO "TEST"" 


Al momento dell’esecuzione, natu¬ 
ralmente, questo produrrebbe il 
***SYNTAX ERROR dell’Apple- 
soft. Si può evitare questa situazione 
"intrappolando" tutte le eventuali vir¬ 
golette interne (a linea 6130) e sosti¬ 
tuendole con la forma SIMBOLICA 
di un segno di virgolette, di modo che 
invece di creare una linea come quella 
vista sopra, si scriverà: 

9150 HL$ (l)="QUESTO È UN"+Q- 
$+"CASO"+Q$" TEST" 


dove in precedenza (nel segmento di 
programma generato) si è assegnato il 
valore ASCII 34 a Q$. Questo avvie¬ 
ne, di fatto, nelle istruzioni di inizializ- 
zazione create dalla linea 6090. 


Dopo essere stata costruita in que¬ 
sta maniera, ogni riga d’intestazione 
viene introdotta nel file dalla linea 
6160. Poi si costruiscono in analogo 
modo le assegnazioni di matrice delle 
voci di selezione: SI$ (-). 

Quindi, cominciando a linea 6250, si 
memorizzano linee di programma che 
saranno assai simili a quelle della se¬ 
zione "Display" dell’AUTOSCHER- 
MO stesso, nei paraggi della linea 
4000. La linea 6400 costruisce un’istru¬ 
zione ON...GOSUB...sulla base del 
valore di CS. La linea 6410 completa 
l’istruzione calcolando il numero di li¬ 
nea (con riferimento in avanti) che sa¬ 
rà assegnato a ciascuna subroutine di 
"azione", e aggiungendo una virgola 
più l’espressione di stringa per il nu¬ 
mero di linea dell’istruzione "GOS- 
UB". Poi la linea 6420 fa i reset di LN 
(che era stato avanzato per creare l’i¬ 
struzione GOSUB) e scrive effettiva¬ 
mente nel file di testo ognuna delle 
linee GOSUB. 

Le linee 6430 e 6440 scrivono nel file 
la subroutine "spostatrice del cursore" 
e il lavoro è fatto. Be’, quasi fatto. Il 
file termina con CLOSE e scrive sullo 
schermo un breve e utile messaggio, 
comunicando all’utente quali numeri 
di linea saranno utilizzati nel segmen¬ 
to di programma appena creato. Il 
messaggio ricorda inoltre all’utente 
come utilizzare il file generato, prov¬ 
vedendo a farne l’EXEC nel program¬ 
ma di destinazione. 

Conclusione 

Troverete questo schermo di scelta, 
o generatore di "menù", un incredibile 
strumento per risparmiare tempo. Es¬ 
so produrrà ogni volta un segmento di 
programma esente da errori, sempre- 
ché le istruzioni "di azione" dell’utente 
usino una sintassi valida. Se una sola 
linea delle istruzioni di "azione" non è 
sufficiente, si rammenti che si può 
sempre fare dell’istruzione di "azione" 
un GOTO o un GOSUB a un numero 
di linea esterno al segmento, e poi scri¬ 
vere tutto il codice che si vuole. Oppu¬ 
re si può scrivere parte dell’istruzione, 
e poi aggiungerle "altro dopo averne 
fatto l’EXEC nel proprio programma. 
Questo farà ancora risparmiare il no¬ 
vanta per cento del tempo che occor¬ 
rerebbe altrimenti per la stesura e il 
debugging di un analogo "menù". 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

-- * 
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Data base? 
Facile, veloce 

e su misura... 

A seconda di come vengono messi in relazione tra di loro, i dati inseriti nel 
Data Base del programma Tre per Te possono dare risultati completamente 
diversi, quindi soddisfare le esigenze più personali. L’importante è... 


I l concetto di Data Base è molto 
semplice: una serie di dati di base 
che poi, a seconda di come vengono 
relazionati tra di loro, forniscono de¬ 
terminate informazioni. Appleworks 
contiene in sé un Data Base non 
preimpostato, ma facilmente imposta¬ 
bile, la cui caratteristica principale è 
l’adattabilità all’uso personale. 

Una volta avviato Appleworks, sce¬ 
gliete l’opzione "aggiungi file sulla 
scrivania", "Data Base" e "ex—novo". 
A questo punto il computer vi chiede 
un nome per il nuovo file. In questo 
articolo dedicato all’uso del Data Base 
di Appleworks, costruiremo un mo¬ 
dello molto semplice che risulterà alla 
fine un’esercitazione più che un mo¬ 
dello da utilizzarsi anche in seguito. 
Diamogli comunque il nome magazzi¬ 
no (figura 1) . 

Battuto Return, lo schermo si pre¬ 
senta come nella figura 2. la scritta 
Campo 1 serve solo a ricordare che lì 


va inserita la prima definizione del Da¬ 
ta Base che andiamo a costruire. Por¬ 
tate il cursore, usando la freccia de¬ 
stra, subito dopo l’I e tornate indietro 
con il Delete. 

Poniamo di voler fare un Data Base 
che gestisca un magazzino di vini. Al 
posto di campo 1 metteremo VINO, 
poi Return e DATA AC., per data 
acquisto, Return, PREZZO AC., Re¬ 
turn, DATA VEN., che sta per data 
vendita, Return, PREZZO VEN. 
Uno dei primi segreti da imparare è di 
essere molto sintetici nelle definizioni, 
perché altrimenti si occupa troppa me¬ 
moria a scapito del numero di schede 
che è possibile inserire nel modello 
che si sta costruendo. Una volta termi¬ 
nato di impostare il Data Base (figura 
3) , battete ESC. Compare in questo 
caso a video il seguente messaggio: 
"Questo file non contiene ancora nes¬ 
suna informazione. Quindi ti troverai 
automaticamente nella sezione inseri¬ 


mento record", e una nota in basso a 
sinistra vi suggerisce di premere la bar¬ 
ra spaziatrice per continuare. Una vol¬ 
ta premuta la barra spaziatrice, potre¬ 
te cominciare a inserire i dati nella 
prima scheda. Se a questo punto vi 
accorgete di aver dimenticato di inse¬ 
rire qualche campo, niente paura: ba¬ 
sta premere Escape, poi mela vuota N 
per poter eseguire delle correzioni sia 
per quanto riguarda il nome del file, 
sia per quanto riguarda eventuali cam¬ 
pi da cancellare o eventali campi nuovi 
da inserire (figura 4) . Posizionate il 
cursore nella riga dove compare DA¬ 
TA AC. e premete mela vuota I. Ave¬ 
te creato così una riga vuota tra VINO 
e DATA AC. Posizionate il cursore 
all’inizio di questa riga vuota, battete 
ANNATA e Return. Posizionate il 
cursore nella riga dove compare 
PREZZO AC. ed eseguite la medesi¬ 
ma operazione per inserire QUANTI¬ 
TÀ. Portate il cursore nella riga dove 





































compare PREZZO VEN. e inserite 
ancora una riga bianca, dove scrivere¬ 
te per la seconda volta QUANTITÀ. 
Se invece vi dovesse capitare di elimi¬ 


nare uno o più campi, basta semplice- 
mente posizionare il cursore nel cam¬ 
po che si vuole eliminare e battere me¬ 
la vuota E. 

Per utilizzare questo programma 
non è necessario ricordare tutto a me¬ 
moria, perché di volta in volta alcuni 
messaggi compaiono a video per ricor¬ 
dare le diverse operazioni che è possi¬ 
bile eseguire in qualsiasi momento. 
Per esempio, sempre facendo riferi¬ 
mento alla figura 4, possiamo vedere 
che nella prima riga in alto il computer 
ci dà tre indicazioni: 1) File: Magazzi¬ 
no. Significa che stiamo lavorando a 
un file che si chiama Magazzino. 2) 
Cambia nome/campo. Significa che 
stiamo operando all’interno dell’op¬ 
zione che ci permette di cambiare il 
nome del file e intervenire per modifi¬ 
care, aggiungere o cancellare i campi. 
3) Esc:Rev/Agg/Modifica. Significa 
che se premiamo il tasto Escape ci ri¬ 
troviamo nel modo Revisione, Ag¬ 
giunta, Modifica delle varie schede 
che compongono il file. Noi dobbiamo 
a questo punto proprio battere Esca¬ 
pe. Premee la barra spaziatrice, posi¬ 
zionatevi su Sì premendo freccia de¬ 
stra e battete Return. Compilate la 
prima scheda. In corrispondenza di 
VINO scrivete Barolo; vicino ad AN¬ 


NATA: 1976. In corrispondenza del 
campo DATA AC. è da notare un 
fatto particolare: scrivete la data 5 
aprile 1978 in questo modo: 5.4.1978; 
una volta battuto Return, automatica- 
mente il computer scriverà 5 Apr 78 
(figura 5) . 

Per poter constatare meglio tutte le 
possibilità che offre il Data Base del- 
l’Appleworks occorre riempire alcune 
schede: fate riferimento alla figura 6 e 
ricopiatene i dati, scheda per scheda, 
facendo attenzione a inserire le date 
come detto più sopra. 

Una delle possibilità più interessan¬ 
ti che offre il Data Base è l’ordinamen- 
to alfabetico o numerico su uno qua¬ 
lunque dei campi. Posizionate il curso¬ 
re, in una scheda qualunque, alla voce 
VINO e premete mela vuota O: a vi¬ 
deo compare quanto si può vedere nel¬ 
la figura 7. Evidenziate col cursore lu¬ 
minoso l’opzione 1 e premete Return. 
Una volta terminato l’ordinamento, 
premete mela vuota Z, l’opzione di 
Zoom, che permette di vedere a video 
anziché una singola scheda in vertica¬ 
le, quindici schede in orizzontale con 
possibilità di scroll usando le frecce su 
e giù. Vi renderete subito conto che 
tutte le schede sono state messe in or¬ 
dine alfabetico per vino. Potreste ese¬ 


guire la medesima operazione selezio¬ 
nando un campo numerico e mettendo 
quindi tutto il vostro Data Base in or¬ 
dine crescente (o decrescente) per un 
determinato valore. 

Nell’esempio che abbiamo costruito 
l’opzione che vedremo ora non serve a 
molto, ma immaginate di dover indivi¬ 
duare una determinata scheda in mez¬ 
zo ad altre cinquecento... Battete me¬ 
la vuota C: vi si presenterà a video la 
figura 8. A questo punto dovete batte¬ 
re, come vi richiede il computer, i dati 
di confronto. Scrivete Barolo e preme¬ 
te Return: immediatamente a video vi 
viene presentata la scheda del vino Ba¬ 
rolo. 

Un’altra utile possibilità fornita da 
questo programma è di selezionare, 
premendo mela vuota R, tutti i record 
che abbiano determinate caratteristi¬ 
che. A video viene presentato l’elenco 
dei campi e bisogna selezionare quello 
sul quale vogliamo che il programma 
esegua la sua scelta ristretta. Scegliete 
il campo ANNATA e battete Return: 
comparirà a video il messaggio della 
figura 9. Sono 12 le possibilità offerte. 
Scegliete la prima, uguale , e battete 
Return: vi verrà chiesto di battere i 
dati di confronto: scrivete 1978 e bat¬ 
tete Return. Sul video compare il mes- 
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1. Prendi un formato prospetto 

2. Crea un nuovo formato 'tabella' 

3. Crea un nuovo formato 'etichetta' 

4. Duplica un formato esistente 

5. Cancella un formato 



File: Magazzino 
Prospetto: Rimanenze 
Selezione: AMATA- UQuale 1978 
o AMATA- uguale 1979 


FORMATO PROSPETTO 


Esc: Menù di Prospetto 


13 


--} 

o Spostare il Cursore 

5-K 

Definire 

un campo calcolato 

> 

§ < Scambiare posizione dei camp 

i §-N 

Cambiare 

il Nome/titolo prospett 

—> § <— Modificare ampiezza colonne 

5-0 

Ordinare secondo questo campo 

§-E 

E1irainare questo campo 

§-P 

Cambiare 

i Parametri di stampa 

S-G 

Agg./togliere totali per Gruppi 

5-R 

Cambiare 

le Regole di selezione 

5-1 

Inserire il campo cancellato prima 

5-S 

Stampare 

il prospetto 

§-J 

Giustificare a destra questo campo 

5-T 

Agg./Togl 

iere Totali per campi 

VINO 

AMATA- DATA AC. QUANTITÀ- PREZZO AC. DATA VEN. Q 

-A- 






BAROLO 

BORDEAUX 

CARTIZZE 


1976 

1975 

1982 


5 Apr 78 
12 Mar 82 
20 Set 83 


1000 

2000 

2500 


2000 

2200 

2200 


5 Giu 80 
21 Mag 83 


Usa i seguenti comandi per modificare il formato 


—- Altri -> 
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saggio della figura IO. in parole pove¬ 
re, avete chiesto di individuare tutti i 
record, all’interno del campo ANNA¬ 
TA, che riportino l’anno 1978; ora po¬ 
tete integrare questa informazione 
con altri criteri di selezione. Per esem¬ 
pio, potete dire al computer di sceglie¬ 
re tutti i record che, nel campo AN¬ 
NATA riportino 1978 e 1979. Sappia¬ 
mo che questo, nel nostro caso, non è 
possibile, in quanto il campo ANNA¬ 
TA riporta un anno solo. Possiamo 
dire al computer di scegliere tutti i re¬ 
cord che riportano 1978 o 1979. Que¬ 
sto sì che è possibile e pertanto sceglia¬ 
mo l’opzione 2 del menù riportato nel¬ 
la figura IO. Avremmo potuto anche 
scegliere l’opzione 3, sempre della fi¬ 
gura 10, con la quale avremmo detto al 
computer di selezionare tutti i record 
contenenti da 1978 a, per esempio, 
1982. 

Il risultato di questa selezione è visi¬ 
bile nella figura 11. Per avere nuova¬ 
mente selezionati tutti i campi del Da¬ 
ta Base appena creato dobbiamo nuo¬ 
vamente premere mela vuota R: il 
computer visualizza il messaggio: "se¬ 
leziona tutti i record?" Posizionate il 
cursore luminoso su sì e battete Re¬ 
turn. A questo punto, avrete nuova¬ 
mente disponibili tutti i record inseriti 
fin qui. 

Due sono i formati di stampa che è 
possibile ottenere con il Data Base 
dell’Appleworks: etichette e tabelle. 
Del formato per ottenere le etichette 
ci occuperemo in uno dei prossimi arti¬ 
coli. Per quanto riguarda le tabelle, 
premete mela vuota S e otterete sul 
video il menù della figura 12. Le op¬ 
zioni 1, 4 e 5 si riferiscono a formati 
creati in precedenza, pertanto sceglie¬ 
te l’opzione 2: vi viene chiesto di dare 
un nome a questo prospetto. Chiama¬ 


telo Rimanenze e battete Return. 
Compare a questo punto a video il 
menù della figura 13. Per prima cosa, 
diminuite la lunghezza dei campi in 
modo funzionale, cioè per poter avere 
a video, quindi poi sul foglio di stam¬ 
pa, il maggior numero di dati. Inoltre, 
è inutile, per esempio quando il campo 
prevede solo l’anno, avere più spazio 
disponibile di quanto ne occupa l’anno 
stesso. Per fare questo, posizionate il 
cursore, usando le frecce, all’inizio di 
ogni campo e premete mela vuota 
freccia sinistra. 

Ora posizionatevi col cursore sul 
campo DATA VEN. e premete mela 
vuota K. Avete creato così un nuovo 
campo "calcolato", cioè un campo al¬ 
l’interno del quale potete mettere in 
relazione di calcolo i campi che lo pre¬ 
cedono. Dovete innanzitutto dare un 
nome a questo campo: chiamatelo 
SPESA A., che sta a significare spesa 
di acquisto, battete Return e una nuo¬ 
va scritta, in basso a sinistra, vi chiede¬ 
rà di battere la formula. Scrivete: 
D*E, cioè praticamente moltiplicate 
la quantità (colonna D) per il prezzo di 
acquisto (colonna E) in modo da avere 
nel nuovo campo creato la spesa finale 
per l’acquisto di ogni tipo di vino. Un 
messaggio a questo punto chiede 
quanti decimali volete: rispondete in 
questo caso 0, semplicemente batten¬ 
do Return. Vi chiede inoltre quanti 
spazi bianchi deve lasciare dopo que¬ 
sto campo: per default ve ne propone 
tre, voi mettete 1 al posto di 3 e battete 
Return. 

Posizionatevi ora sibila colonna D 
corrispondente alla quantità acquista¬ 
ta e premete mela vuota T. Il compu¬ 
ter vi chiede quanti decimali volete: 
ripetete la procedura esposta nelle ri¬ 
ghe precedenti. Eseguite la stessa ope- 



RIVENDITORE AUTORIZZATO 

f|cippkz computer ine. 



Software 

Contabilità generale 80CL Prodos 
Contabilità semplificata 
multiaziendale 
Gestione Parrocchie 
Gestione Alberghi 
Parcellazione studi legali 
Fatturazione su MAC 

Hardware 

Interfacce per Olivetti 
ET 121 /201 /221 / 111 
Interfacce per Adler 
G8008 SE/1005/1010/ 1030 



INFORMATICA 
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SCHEDE PER ACQUISIZIONI ANALOGICHE 


Mod.: XAD-1 - n. catalogo: 060160 
A / D converter 12 bit con orologio e 4 reed relays • Sezione A / D conver¬ 
ter: 4 canali con multiplexer analogico guadagno fisso range 0-5 V uni¬ 
polari. ■ Stabilità di conversione = 50 ppm / C. - Tempo di conversione 
10 millisecondi per canale. - Non linearità + / - 0.1% fondo scala. • Pro¬ 
tezione input fino a + 50 V. Tecnica di conversione: integrazione. 

Mod.: XAD-2 • n. catalogo: 060161 
A / D converter 12 bit con ingressi a guadagno variabile, ingressi a gua¬ 
dagno fisso e 2 reed relays. • Sezione A / 0 converter: 3 canali con multi¬ 
plexer analogico con guadagno fisso 0-5 V unipolari. 2 canali con 
multiplexer analogico ingressi differenziali con guadagno variabile pro¬ 
grammabile da un range di 0-10 mV ad un range di 0-2.5 V fondo scala 
in step di ragione 2 da 1 a 128. 

Mod.: 11 04 - n. catalogo: 060162 

A / D converter 12 bit high-speed con ingressi differenziali a guadagno 
variabile. Numero canali: 8 • Ingressi: completamente diffrenziali da + / - 
0-10 mV a + / — 10 V. • Risoluzione: 12 bit ■ Tempo di conversione: 25 
microsecondi a 12 bit, 15 microsecondi a 8 bit ■ Guadagno: programma- 
bile in step binari da 1 a 128. 



Mod.: A/ D DI A 12 bit - n. catalogo: 060163 
A / D converter 16 canali 12 bit veloce con D/A converter veloce 12 bit. 
Sezione A / D converter - Numero canali: 16 - Ingressi: unipolari - Tensio- 
ne di ingresso: 0-9 V a guadagno fisso - Tempo di conversione: 60 mi¬ 
crosecondi / canale - Sezione D / A converter: 1 canale di uscita - Livello 
di uscita: regolabile da 0-4.5 V a 0-9 V tramite trimmer multigiri • Polari¬ 
tà: unipolare o bipolare tramite jumper on-board. Settling time tipico: 1 
microsecondo. 

Mod.: A/D converter 16 canali 8 bit - n. catalogo: 060165 
A/ D converter veloce ed economico - Canali: 16 unipolari a guadagno 
fisso • Tensione ingresso: 0-5 V ■ Tempo di conversione: 100 microse¬ 
condi / canale. 

Mod.: A/ A DI A 8 bit - n. catalogo: 060166 
A / D converter 16 canali 8 bit con D / A converter 1 canale 8 bit • Sezione 
A / D converter: • Risoluzione: 8 bit ■ Numero canali: 16 ■ Ingressi: unipo¬ 
lari a guadagno fisso - Sensibilità ingressi: 0-5 V - Tempo di conversio¬ 
ne: 100 microsencondi / canale - Sezione D / A converter: Numero canali: 
1. Risoluzione: 8 bit - Output: unipolare, 0-5 V - Tempo di conversione: 
1 microsecondo. 

Mod.: D/A converter 8/16 bit con output TTL - n.ca¬ 
talogo: 060164 

D / A converter 8 bit 2 canali con possibilità di miscelazione tensioni out¬ 
put e 2 canali output a livello TTL • Sezione D / A converter ■ Risoluzio¬ 
ne: 8 o 16 bit - Numero canali: 2 a 8 bit o 1 a 16 bit - Tensione uscita: 
0-10 V fioating, regolabile con trimmers multigiri • Settling time: 1 mi¬ 
crosecondo - Commutazione canali: via software, tramite multiplexer ana¬ 
logico ■ Sezione TTL port: Numero porte: 2 • Output: livello TTL 
compatibile, sink 20 mA, totem-pole. 

Parallel Port Interface ■ n. catalogo 050121 
L'interfaccia PARALLEL PORT è una scheda di interfaccia parallela ge¬ 
neralizzata con capacità di servire sino a 24 porte I / O. 

Essa sfrutta le doti di programmabilità dell’8255 INTEL lasciando all’uti- 
lizzatore la specializzazione delle porte I / O. 


A/D D/A CONVERTER PER IBM PC compatibile. 


Mod.: A/D D/A converter 12 bit - n. catalogo: 095163. 
A/D D/A converter 12 bit 16 canali con D/A converter 12 bit singolo 
canale • Sezione A / D converter ■ Risoluzione: 12 bit (4096 punti) • Nu¬ 
mero canali: 16 con multiplexer analogico • Velocità conversione: 25 mi¬ 
crosecondi/canale - Ingressi: unipolari a guadagno fisso - Tensione 
ingressi: 0-9 V aggiustabile con trimmer multigiri ■ Sezione D / A conver¬ 
ter. ■ Risoluzione: 12 bit (4096 punti) • Tensione uscita: 0-9 V aggiustabi¬ 
le con trimmer multigiri - Modo uscita: unipolare o bipolare (selezionabile 
con jumper) • La schedina è dotata di connettore I / O tipo CANNON DB25 
femmina, e viene fornita con manuale operatore in lingua inglese e di¬ 
schetto dimostrativo. 

RICHIEDETE CATALOGO: 

OLTRE 90 PRODOTTI PER APPLE E IBM 

r=)r^r=)Tpr^n periferiche 

■I U [Su— l1 U LSU=i telecomunicazioni 

TORINO • VIA ORMEA, 99 - TEL. 011 /655.865 
CONDIZIONI PARTICOLARI PER DEALER E HOBBISTI 



File: Magazzino 
Prospetto: Rimanenze 


VINO 

A/MATA DATA AC. 

QUAffTITA PREZZO AC. 

SPESA A DATA VEN. 

QUANTITÀ- PREZZO VEN. 

RICAVI 

RIMANENZE 

BAROLO 

1974 

5 Apr 78 

1000 2000 

2000000 5 Giu 80 

800 3000 

2400000 

200 

BORDEAUX 

1975 

12 Mar 82 

2000 2200 

4400000 21 Mag 83 

2000 3400 

4800000 

0 

CARTI2ZE 

1982 

20 Set 83 

2500 2200 

5500000 18 Mar 84 

2500 3000 

7500000 

0 

LAHBRUSCO 

1980 

4 Set 83 

1800 1700 

3040000 23 Giu 84 

800 2500 

2000000 

1000 

REFOSCO 


5 Mag 81 

1400 2300 

3220000 15 Ago 83 

1000 3400 

3400000 

400 

SOAVE 

ww 

2 Giu 80 

2800 1700 

4740000 30 Ago 82 

2500 2500 

4250000 

300 

VALPf C- . 


3 Die 80 

800 1000 

800000 12 Apr 81 

700 1800 

1240000 

100 


X 


12300* 

23740000* 

10300* 

29410000* 

2000* 


Fi le : Magazzino 
Prospetto: Rimanenze 


PARAMETRI DI STAMPA 


Esc: E1imina Valore 


-Margini Sinistro 

e Destro- 

-Margini Alto e 

Basso- 

LC: Larghezza Carta 

8,0 Pollici 

AC: Altezza Carta 

12,0 Poiìic 

MS: Margine Sinistro 

0,0 Pollici 

MA: Margine Alto 

0,0 Poli ic 

MD: Margine Destro 

0,0 Pollici 

MB: Margine Basso 

2,0 Pollic 

CP: Car./Poli ice 

17 

LP: Linee/Pollice 

6 

Lunghezza Linea 

8,0 Pollici 

Altezza di Stampa 

10,0 Pollic 

Car./linea (stira) 

136 

Righe per pagina 

60 


-Opzioni di Formato—. 

Codici Speciali per la stampante 
Stampa Lineette se un campo è vuoto 
Stampa Titolo a ogni inizio pagina 
Singolo, Doppio o Triplo Spazio (1S/2S/3S) 


Batti le 2 lettere del parametro SL 
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razione con le colonne F, corrispon¬ 
dente a Spese di Acquisto, e H, corri¬ 
spondente alla Quantità venduta: ser¬ 
ve ad avere, alla fine di ogni colonna, 
la somma delle singole voci. 

Quando eseguite le operazioni mela 
vuota T e mela vuota K, le colonne 
all’interno delle quali operate compa¬ 
iono a video come una serie di voci 
fatte tutte di 9: nessuna preoccupazio¬ 
ne, al momento di stampare, questi 9 
si mutano nei numeri che effettiva¬ 
mente sono stati inseriti. 

Posizionatevi alla fine delle colonne 
e premete ancora mela vuota K, per 
definire un altro campo calcolato, che 
chiamerete Ricavi, per ricavo vendite. 
La formula di questo campo sarà H*I. 
Inserite infine ancora un campo calco¬ 
lato dopo Ricavo vendite che chiame¬ 
rete Rimanenze, la cui formula sarà: 
D-H. 

Non resta ora che definire le opzioni 
di stampa, premendo mela vuota P. La 
cosa più importante è mettere un ca¬ 
rattere piccolo, per poter stampare la 
nostra tabella su un unico foglio. 
Quando siete nelle opzioni di stampa, 
battete quindi CP, Return, 17, Re¬ 
turn, Escape. A questo punto, preme¬ 
te mela vuota S, selezionate il tipo di 


stampante alla quale il vostro Apple è 
collegato: il risultato sarà la tabella 
visibile nella figura 14. Da notare, in 
questa tabella, che alla fine della co¬ 
lonna Quantità di Vino acquistato fi¬ 
gura un totale contraddistinto da un 
asterisco, come pure alle colonne Spe¬ 
se di Acquisto, Quantità di Venduto, 
Ricavo del Venduto, Rimanenze. Al¬ 
tro particolare interessante da notare 
nella colonna Rimanenze è che si è 
potuto ottenere, record per record, il 
totale rimasto nel magazzino, di vino 
non venduto. Affinché nelle caselle in 
cui il saldo è 0 venga effettivamente 
scritto 0, premete, quando avete a vi¬ 
deo il formato pospetto Rimanenze, 
mela vuoaa P, per entrare nelle opzio¬ 
ni di stampa. Battete SL e return (figu¬ 
ra 15): serve a stampare un lineetta se 
un campo è vuoto e uno 0 se il campo è 
numerico con valore, appunto, zero. 

Se avete seguito con attenzione fin 
qui le operazioni descritte, sarete ora 
in grado di creare da voi i modelli che 
più corrispondono alle vostre esigen¬ 
ze. In ogni caso, nel prossimo numero 
di Applicando , costruiremo insieme 
un utile modello che servirà anche a 
scoprire ulteriori possibilità di questo 
programma. ■ 


78 























Per chi 
comincia 



N uovi lettori, siate i benvenuti. Queste 
pagine sono per voi, e le ripeteremo a 
ogni numero per facilitare il primo incontro 
con Applicando e con il mondo di Apple. 
Ovviamente queste righe non intendono 
sostituire i manuali, dei quali consigliamo 
caldamente la lettura, ma possono bastare 
per chi intende soltanto utilizzare i pro¬ 
grammi che pubblichiamo, copiarli, salvar¬ 
li su dischetto e farli partire. 

Cominciamo con qualche rapidissima 
premessa su Apple //. Quando accendete 
per la prima volta il vostro Apple con un 
dischetto già inserito nel drive e la tastiera 
posizionata sull’inglese (per chi possiede 
Apple //e e //c), dovreste veder comparire 
sullo schermo il segno chiamato curso¬ 
re, o prompt, in inglese. Mentre se avete la 
tastiera posizionata su italiano, vedrete é. 
La sua presenza significa che potete fare 
una di queste tre cose: 

1) Fornire al computer comandi destinati 
al drive (per esempio CATALOG mostra il 
contenuto del dischetto, se si tratta di un 
dischetto in Basic). 

2) Fornire comandi nella versione per 
Apple del linguaggio Basic (e cioè l’Apple- 
soft Basic). 

3) Battere sulla tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Applican¬ 
do potrà essere necesario fare tutte e tre le 
cose. 

Per battere un programma 

di applicando 

Per prima cosa sarà opportuno leggere 
fino in fondo l’articolo che accompagna il 
programma. Può darsi che non capiate pro¬ 
prio tutto la prima volta: non preoccupate- 
vene, in seguito diventerà facilissimo. Cer¬ 
cate soprattutto le eventuali istruzioni che 
spiegano se occorre fare qualcosa, di parti¬ 
colare per battere il programma. In ogni 
caso assicuratevi di aver pronto un dischet¬ 
to già inizializzato per poter salvare quel 
che avrete battuto. Per i dettagli su come 
inizializzare un dischetto vergine, guardate 
i manuali: chi proprio ai manuali fosse al¬ 
lergico, faccia così: a Apple spento inseri¬ 
sca il dischetto System Master nel drive 1, e 
accenda il computer: quando il drive avrà 
smesso di girare (lueina rossa di nuovo 
spenta), tolga il System Master dal drive e 
inserisca al suo posto un dischetto sicura¬ 
mente vergine e sicuramente mai usato (at¬ 
tenzione: si possono ri—inizializzare anche 
dischetti già usati, ma il loro contenuto va 
irrimediabilmente perso) ; ora basta battere 
NEW, Return, e poi INIT HELLO, sem¬ 
pre seguito da Return. 

Tutti i programmi in Basic consistono di 
una sequenza di righe di istruzioni. Tutte le 


righe sono numerate all’inizio, e possono 
contenere una o più istruzioni. Se le istru¬ 
zioni sono più d’una, esse saranno separate 
da segni di due punti (:). Per esempio: 


20 FOR J = 1 TO 5 : PRINT 
CHR$(7):NEXT J 


Per copiare da Applicando un program¬ 
ma, inserendolo nel vostro Apple, occorre 
assicurarsi che la memoria operativa del 
computer sia vuota battendo NEW Return 
(questa istruzione non cancella nulla di ciò 
che è registrato sui vostri dischetti: libera 
soltanto la memoria del computer dall’ulti¬ 
mo programma usato), ed è necessario poi 
battere i listati così come sono stampati, 
riga per riga, compresi i numeri di riga, 
battendo Return solo quando si arriva al 
numero di riga successivo. Quando sarà 
stata copiata anche l’ultima riga e l’ultimo 
Return (a fine riga), si potrà salvare il pro¬ 
gramma su dischetto (il dischetto che avete 
inizializzato, o un altro già inizializzato in 
precedenza su cui ci sia spazio libero a suffi¬ 
cienza). Per salvarlo basterà battere il co¬ 
mando SAVE, seguito dal nome che inten¬ 
dete dare al programma che avete trascrit¬ 
to. Questo è tutto, ma vediamo passo per 
passo un esempio. 


10 REM CAMPANELLO 
20 FO R J = 1 TO 5 : PRINT 
CHR$(7):NEXT J 
30 END 

Listato 1 


Per battere il semplice programma Cam¬ 
panello del listato 1 (produce solo un suono 
simile a quello di un campanello, null’al- 
tro), si seguirà questa sequenza: 

1) Battete NEW Return per cancellare 
dalla memoria qualsiasi programma prece¬ 
dentemente usato. (Se state lavorando su 
un Apple //e o un Ile assicuratevi che il tasto 
CAPS LOCK, il primo in basso a sinistra, 
quello che permette di ottenere tutte maiu¬ 
scole, sia schiacciato). 

2) Battete la linea 10 esattamente com’è 
stampata e premete il tasto Return solo alla 
fine dell’ultima parola (CAMPANELLO). 

3) Battete allo stesso modo anche le linee 
20 e 30. 

4) Con un dischetto già inizializzato nel 
drive (nel drive 1, se ne avete due), battete 
SA VE CAMPANELLO Return, per regi¬ 
strare il vostro programma su dischetto. 

5) Poiché il vostro programma è ancora 
nella memoria del computer, per farlo gira¬ 
re basterà battere RUN e premere il tasto 
Return. Se cancellate la memoria facendo 
girare un altro programma o spegnendo il 


computer, per usare nuovamente il pro¬ 
gramma occorrerà inserire il dischetto nel 
drive e battere RUN CAMPANELLO Re¬ 
turn. 

Alcuni suggerimenti 

I suggerimenti che seguono possono ren¬ 
dere il lavoro di trascrizione un po’ più 
facile: 

1) Se commettete un errore di battitura 
in una riga e non avete ancora premuto il 
tasto Return, basterà tornare indietro con 
la freccetta sinistra, correggere l’errore, e 
tornare al punto in cui eravate con la frec¬ 
cetta destra, premendo Return come al so¬ 
lito solo a completamento dell’intera riga. 
Se invece vi accorgete dell’errore quando 
ormai avete premuto Return e siete passati 
a un’altra riga, completate tranquillamente 
la riga che state scrivendo, compreso il Re¬ 
turn finale; poi ribattete la riga in cui avete 
commesso l’errore: ribattetela per intero, 
con numero di riga e tutto il resto, e la 
nuova versione prenderà automaticamente 
il posto della vecchia. 

2) Siate particolarmente attenti a non 
commettere errori di trascrizione nelle ri¬ 
ghe in cui compare l’istruzione DATA. 
Nelle altre istruzioni un eventuale sbaglio è 
più facile da individuare, perché penserà 
eventualmente il computer a segnalarlo in 
seguito, nelle istruzioni DATA questo in¬ 
vece non avviene. 

3) Salvate periodicamente il programma 
mentre procedete, per minimizzare i guai 
di una eventuale interruzione di corrente. 
Se non avete tempo per trascrivere tutto il 
progamma, trascrivete fin dove potete o 
volete (ma comunque completando fino al 
Return la riga che state battendo), poi sal¬ 
vatelo su dischetto come se aveste finito. 
Per riprendere a trascrivere sarà sufficiente 
inserire il dischetto nel drive, accendere il 
computer, e battere LO AD seguito dal no¬ 
me che avete dato al programma, e da Re¬ 
turn (battete CATALOG se non ricordate 
più con che nome avete salvato il program¬ 
ma). La luce rossa sul drive si accenderà, e 
il vostro programma verrà caricato nella 
memoria operativa del computer. A questo 
punto battete LIST, e vedrete scorrere sul¬ 
lo schermo tutta la parte del programma 
che avevate già battuto. Continuate adesso 
tranquillamente dal punto in cui avevate 
interrotto. 

4) Prima di effettuare modifiche o ag¬ 
giunte, trascrivete l’intero programma e fa¬ 
telo girare per prova. Questo renderà più 
facile là ricerca di eventuali errori, isolando 
quelli commessi durante la battitura e la 
trascrizione. Non preoccupatevi per il nu¬ 
mero di errori di trascrizione che farete: è 
normale. Il computer vi segnalerà, riga per 
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riga, dove avete sbagliato. Basterà a questo 
punto controllare la riga, individuare l’er¬ 
rore commesso e ribattere correttamente 
l’intera riga. A questo punto occorre salva¬ 
re di nuovo il programma su dischetto. 

5) Le lettere minuscole possono essere 
usate solo aH’interno di comandi che inclu¬ 
dono REM o tra virgolette. 

Programmi in 
linguaggio macchina 

Il Basic e il Dos sono ottimi linguaggi, 
ideati apposta per rendere più facile la pro¬ 
grammazione, ma l’Apple è in grado di 
ricevere comandi anche in un codice molto 
più vicino alla sua logica, chiamato linguag¬ 
gio macchina. Il linguaggio macchina è un 
po’ la lingua madre dell’Apple, un pro¬ 
gramma così composto sarà quindi compre¬ 
so dal computer molto più velocemente di 
un programma scritto in Basic. Per creare 
programmi in questa lingua si usa spesso un 
programma chiamato Assembler. L’As- 
sembler permette al programmatore di 
scrivere in un codice più facile del linguag¬ 
gio macchina: l’assembly. In un secondo 
momento il programma stesso si tradurrà in 
linguaggio macchina. L’Apple infatti non 
conosce l’assembly. 

Molti dei programmi che troverete su 
APPLICANDO saranno scritti in ambe¬ 
due le versioni: assembly e linguaggio mac¬ 
china; in questo modo potrete inserire le 
istruzioni direttamente in linguaggio mac¬ 
china, senza dovervi procurare il program¬ 
ma Assembler. In questo caso le istruzioni 
dovranno essere inserite direttamente nel 
System Monitor (da non confondere col 
monitor video): per raggiungere il System 
Monitor è sufficiente battere CALL—151 e 
schiacciare il tasto Return. A questo punto 
sullo schermo comparirà un asterisco (*) 
che indica che è stato raggiunto il contatto 
con il System Monitor. Per inserire i listati 
scritti in linguaggio macchina occorrerà al¬ 
lora battere, per esempio, i seguenti co¬ 
mandi: 


300: A2 05 20 DD FB CA F0 03 4C 02 03 60 
Return 


In questa serie di istruzioni il ’300’ indica 
una locazione di memoria e i due punti 
dicono all’Apple di inserire i seguenti nu¬ 
meri (A2 e gli altri numeri in base 16) in 
quella locazione. I numeri sono in base 16 
(esadecimale); non è necessario saper cal¬ 
colare con questa base per trascrivere i pro¬ 
grammi in linguaggio macchina, ma è im¬ 
portante sapere che in questo tipo di lin¬ 
guaggio i numeri sono dati sempre in esade¬ 
cimale. 

Facciamo un breve esempio di program¬ 
ma scritto in linguaggio macchina. Il se¬ 
guente listato serve a indirizzare alcuni dati 
in una particolare locazione di memoria: 


300.30B 

0300-A2 05 20 DD FB CA F0 03 
0308-4C 02 03 60 

Listato 2 


I numeri a sinistra delle lineette (atten¬ 
zione: le lineette non vanno digitate, al loro 
posto occorre battere un "due punti") sono 
le locazioni di memoria, vale a dire gli indi¬ 
rizzi dello spazio di memoria in cui il dato 
dovrà essere conservato, e i numeri seguen¬ 
ti sono il contenuto, i dati da memorizzare 
nelle sette locazioni di memoria indicate. I 
due numeri separati da un punto presenti 
nella prima riga indicano gli indirizzi inizia¬ 
li e finali della parte di memoria considera¬ 
ta. Questo programma è la traduzione del 
listato numero tre, scritto in assembly. Co¬ 
me si noterà le colonne a sinistra sono mol¬ 
to simili al listato numero due, contengono 
infatti le locazioni di memoria, mentre la 
parte a destra contiene istruzioni in assem¬ 
bly. Esistono diversi programmi assembler 
e diverse disposizioni dei listati, ma in tutti 
sono presenti queste due diverse colonne. 


1 *RINGER PROGRAM 



2 

ORG 

$300 


3 

BELL EQU 

$FBDD 

0300: A2 05 

4 

LDX 

#$5 

0302: 20 DD FB 5 

LOOP JSR 

BELL 

0305: CA 

6 

DEX 


0306: F0 03 

7 

BEQ 

END 

0308: 4C 02 03 

8 

JMP 

LOOP 

030B: 60 

9 

END RTS 



Listato 3 



Per inserire i listati nella macchina è suf¬ 
ficiente eseguire le seguenti operazioni: 

1) Digitare CALL—151 Return per en¬ 
trare in contatto con il System Monitor, poi 
inserire la locazione di memoria, i due pun¬ 
ti e il contenuto della memoria; nel caso del 
listato numero due ad esempio si digiterà: 


300:A2 05 20 DD FB CA F0 03 Return 
308:4C 02 03 60 Return 


Un programma in Assembler sarà invece 
così inserito: 


300 :A2 05 Return 
302:20 DD FB Return 
305 :CA Return 
306:F0 03 Return 
308:4C 02 03 Return 
30B:60 Return 


State attenti a non inserire lo spazio tra i 
due punti e il primo numero seguente, 
mentre invece bisogna mettere lo spazio fra 
le coppie di numeri. 

2) Una volta inserito l’intero listato, 
schiacciate CTRL-C Return per tornare al 
livello BASIC indicato dal segno ’]’. 

3) Al contrario dei programmi in BASIC 
che iniziano nella stessa locazione di me¬ 
moria, e che possono essere salvati con un 
semplice SA VE, i programmi scritti in lin¬ 
guaggio macchina possono iniziare in di¬ 



versi punti della memoria. Per salvare lista¬ 
ti o dati in linguaggio macchina si dovrà 
indicare quindi la locazione alla quale ha 
inizio il programma da salvare e la lunghez¬ 
za dello stesso (in decimale o in esadecima¬ 
le). Per il programma usato prima come 
esempio, il comando sarà: 


BSAVE RINGER, A$300, L$C 


dove A$300 è la locazione di memoria di 
inizio programma e L$C è la lunghezza del 
programma (la lettera C corrisponde al nu¬ 
mero decimale 12). All’inizio dei listati in 
linguaggio macchina pubblicati su Appli¬ 
cando troverete sempre l’indicazione della 
locazione di memoria di inizio e fine pro¬ 
gramma; esempio: 300.3EA mentre nel 
corso dell’articolo troverete i parametri per 
salvare il programma, esempio: BSAVE 
RINGER, A$300,L$C. 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che avete 
battuto. Per ottenere una copia sulla stam¬ 
pante, basterà battere PR # (£ se siete in 
tastiera italiana) seguito dal numero dello 
slot al quale avete collegato la stampante 
(normalmente il n. 1) Return e poi ancora 
300.30B Return. Le correzioni si fanno ri¬ 
battendo solo la riga contenente eventuali 
errori. 

5) Per far girare il programma basterà 
allora digitare BRUN RINGER, senza 
l’indirizzo. 

Quanto esposto sopra è valido sia per il 
DOS 3.3 (sistema operativo per la gestione 
del drive che veniva fornito prima dell’usci¬ 
ta del ilo) sia per il ProDOS (sistema opera¬ 
tivo fornito con il //c). Usando il ProDOS 
occorre però fare alcune precisazioni. 

I comandi del tipo SAVE, LOAD, 
RUN, CATALOG, ecc. vengono accettati 
anche in forma minuscola. 

Per formattare un disco non si potrà più 
usare il comando INIT HELLO, ma sarà 
necessario usare il disco UTILITIES di Si¬ 
stema fornito con il computer. Durante 
questa operazione vi verrà chiesto se il no¬ 
me del disco, assegnato automaticamente 
dal computer, va bene oppure se volete 
cambiarlo. Infatti tutti i dischi formattati in 
ProDOS (indicati come Volume) hanno un 
nome e vengono riconosciuti indicando 
questo nome dopo un comando diretto al 
drive. Per esempio se volete vedere il cata- 
log di un disco chiamato BLANK, dovete 
battere CAT/BLANK. 

Per non ripetere continuamente il nome 
del disco potete battere, prima dei comandi 
diretti al drive, PREFIX/nome disco segui¬ 
to da RETURN. Da questo momento tutti 
i comandi al drive saranno diretti automati¬ 
camente al disco scelto. 

Per vedere il catalog è sufficiente battere 
CAT. 

Durante l’uso di alcuni programi scritti in 
ProDOS potreste trovarvi una richiesta del 
tipo "PATHNAME?"; non spaventatevi, il 
pathname è il nome del disco al quale vo¬ 
gliamo fare riferimento, scritto entro due 
barrette (/) e seguito dal nome del file che 
vogliamo salvare o caricare in memoria op¬ 
pure trasferire da un disco a un altro. 
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• Habadex 

Consente di gestire agenda e rubrica telefonica. L’agen¬ 
da è impostata come una normale agenda da tavolo, ma 
con tutte le possibilità che può offrire il fatto di essere 
inserita in un computer: viene visualizzata data, ora e 
relativo impegno giorno per giorno, oppure una veduta 
generale mese per mese. Gli elenchi della rubrica sono 
costruibili, record per record, con la massima facilità, in 
quanto una apposita maschera fa da guida. Sono inoltre 
ordinabili secondo il criterio che desidera l’utilizzatore e 
stampabili secondo una maschera definita in precedenza. 
E’ inoltre disponibile una funzione di mail merge per circo¬ 
lari personalizzate. Il programma è disponibile in italiano e 
costa 298.000 lire, iva compresa. J. Soft, Via Restelli 5, 
Milano, telefono 02/6888228. 


é Rrchiuio Composizione Ordinamento Stampa Modifiche 



• Microsoft Word 


Uno dei migliori strumenti di elaborazione testi per uso 
professionale. Ogni documento può essere lungo quanto si 
vuole, purché si abbia spazio sufficiente su disco. Dotato di 
mail merge per personalizzare la corrispondenza, è predi¬ 
sposto per stampare su diverse stampanti letter-quality. 



é File Edit Search Character Paragraph Document 


I Regional memo = 


Gadgets lue. 


*The folloving chart cornpares thè industry average forecasts with thè 
;tS’ national forecasts based on thè three region totals. 


Sales Forecasts 
1964 - 1969 


$140 
$120 
$100 
Sales $80 

($000) J 60 

$40 


I Industry 
fiuerage 
I Gadaets 


Offre la possibilità di spostare interi paragrafi da un do- 
cumnto all’altro e di aprire finestre per consultare altri 
documenti. E’ possibile creare un glossario delle parole 
che si adoperano di più, mentre le note al testo vengono 
numerate automaticamente e stampate nella pagina di 
pertinenza. Utilizzabile con gli altri programmi della fami¬ 
glia Microsoft: per esempio, è possibile inserire in un 
documento un grafico ottenuto con Microsoft Chart. Co¬ 
sta 621.300 lire ed è importato da Southern European 
Computer, Via Molino 2, Montorfano (Co), telefono 
031/200621. 


• Switcher 

E’ ancora in fase sperimentale, ma non appena messo in 
commercio andrà sicuramente a ruba. Si tratta di un soft¬ 
ware che gestisce quattro programmi insieme. In pratica, 
suddivide la memoria di un Macintosh 512K in quattro 
parti da 128K ciascuna. In questo modo, con un semplice 
clic del mouse in una doppia freccia che compare in alto a 
destra del menù, è possibile passare instantaneamente, per 
esempio, da MacWrite a MacPaint. Instantaneamente nel 
senso che sul video si vede scorrere l’immagine di MacWri¬ 
te che nel contempo viene sostituita da quella di MacPaint. 
E così via. Il prezzo, naturalmente, non è ancora stato 
comunicato né la data di commercializzazione, anche se è 
presumibile pensare a giugno o settembre di quest’anno. 



• Helix 

Rivolto al mercato dei manager un altro programma 
integrato studiato per una gestione relazionale dei dati. 
Completamente controllato da icone e finestre, mette a 
disposizione funzioni particolari come la creazione da par¬ 
te dell’utente di determinati criteri di lavoro e di manipola¬ 
zione dati che restano sotto forma di icone. Interessante 
l’opzione di help che incorpora sia quella propria del pro¬ 
gramma sia una gestibile dall’utente che può immagazzina¬ 
re una serie di istruzioni che potrà richiamare appunto in 
caso d’aiuto. Gira su Macintosh 512K con un drive aggiun- 
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tivo o un hard disk, o su Lisa con MacWorks. Particolar¬ 
mente curato nella parte grafica, il programma Helix è un 
prodotto della Odesta Corporation. In Italia è possibile 
trovarlo presso Tutto Personal, Via Vittorio Emanuele 39, 
Ciriè, Torino. Costa 1.080.000 lire iva inclusa. 


• Ensemble 

Software integrato che riunisce in un unico programma 
la gestione dei dati, la funzione di foglio elettronico, il 
trattamento dei testi e la creazione di grafici per analizzare 
i dati inseriti. Le diverse funzioni vengono integrate insie¬ 
me per soddisfare le proprie esigenze e possono essere 
interfacciate sia tra di loro sia con MacWrite e MacPaint. 
Prodotto francese della Controle X (il titolo originale è 
CX—MacBase) è stato importato e tradotto dalla Italware 


che lo distribuisce in Italia, in italiano, a 590.000 lire. 
Necessita di un Macintosh 128k, con o senza drive aggiun¬ 
tivo. Si può richiedere alla Italware, Palazzo Borromini, 
Milano 2, Segrate. 


• OverVUE 

Una rubrica telefonica che è anche un utile strumento 
per calcolare i costi delle telefonate. Come tutti i program¬ 
mi "specializzati", naturalmente serve solo a uno scopo 
preciso, ma lo raggiunge in pieno. Il sort è velocissimo ed è 
disponibile anche la stampa secondo maschere definite in 
precedenza. Il suo utilizzo è talmente semplice da farne 
uno strumento ideale per la segreteria. Disponibile in ita¬ 
liano , costa 698.000 lire, iva compresa. J. Soft, Via Restelli 
5, Milano, telefono 02/6888228. 







































































a cura del professor Enzo Tonti 


Un diagramma cartesiano per rendere intuitivamente evidente il 
classico algoritmo euclideo per il calcolo del massimo comun divisore. 

Algoritmo di Euclide 


E uclide di Alessandria, circa 23 se¬ 
coli fa, nelle Proposizioni 1 e 2 del 
Libro VII degli Elementi, ci ha indica¬ 
to la procedura più rapida per il calco¬ 
lo del massimo comun divisore 
(MCD) tra due numeri naturali: si 
tratta di quello che, per antonomasia, 
è l’algoritmo euclideo per il calcolo del 
MCD. La procedura è notissima, e ri¬ 
portata anche in molti testi per le scuo¬ 
le secondarie. Lo scopo dei due pro¬ 
grammi che presentiamo, il primo dei 
quali serve semplicemente come intro¬ 
duzione al secondo, è quello di dare 
uno strumento agevole all’allievo per 
sperimentare l’algoritmo euclideo su 
coppie di numeri di sua scelta, fornen¬ 
do al tempo stesso un’interpretazione 
geometrica del procedimento. 

Esponiamo rapidamente il ragiona¬ 
mento che soggiace al procedimento 
euclideo. Se n ed m sono numeri interi 
positivi, possiamo eseguire la divisio¬ 
ne con resto di n per m, cioè determi¬ 
nare i due numeri q ed r (quest’ultimo 
maggiore o uguale a 0 e minore di m) 
tali che n = q m + r. L’uguaglianza 
ottenuta si scrive anche n - q m = r; 
ne deduciamo che se un intero d divide 
la coppia (n,m) esso divide anche la 
coppia (m,r) e viceversa. Se ne deduce 
che i divisori comuni alla coppia (n, m) 
sono tutti e soli quelli comuni alla cop¬ 
pia (m,r) , quindi 


MCD (n, m) = MCD (m, r); 

se indichiamo il resto della divisione di 
n per m con il simbolo n mod m (preso 
il prestito dal linguaggio di program¬ 
mazione Pascal ), abbiamo 


MDC (n, m) = MCD (m, n mod m) 


L’ultima uguaglianza scritta cade in 
difetto se r = n mod m = 0, nel senso 
che non è stato definito il MCD per 
una coppia di interi avente il secondo 
elemento nullo; d’altra parte, se r = 0, 
ciò significa che n è multiplo di m, e 
dunque 


MCD (n, m) = m 


Siamo dunque indotti a porre la se¬ 
guente definizione "ricorsiva": MCD 
(n, m) è uguale a MCD (m , n mod m), 
se m è diverso da 0, altrimenti è uguale 
ad n. 

La definizione posta sembra elude¬ 
re il problema del calcolo del MCD dei 
due numeri assegnati, in quanto lo ri¬ 
conduce al calcolo del MCD di altri 
due numeri: l’apparente contraddizio¬ 
ne si elimina osservando che nella se¬ 
conda coppia, diciamo (m, r), il secon¬ 
do elemento, r, è minore del primo 
elemento, in quanto è il resto di una 
divisione in cui m funge da divisore. Se 
si ripete un numero sufficiente di volte 
il procedimento di sostituzione della 
coppia (dividendo, divisore) con la 
coppia (divisore, resto), si perviene, 
dopo un numero finito di iterazioni, ad 

Listato 1 


una coppia in cui il secondo elemento 
è nullo, e quindi il primo elemento 
fornisce il MCD. Il MCD è invariante 
nel passaggio da ciascuna coppia alla 
coppia successiva: quando si perviene 
alla coppia con secondo elemento nul¬ 
lo, il primo elemento è il MCD comu¬ 
ne a tutte le coppie cercate, quindi 
anche il MCD della coppia iniziale. 

L’algoritmo euclideo può essere in¬ 
terpretato come il calcolo della funzio¬ 
ne che associa ad ogni coppia (n, m) di 
numeri naturali il loro MCD, median¬ 
te utilizzazione ripetuta della defini¬ 
zione ricorsiva posta. 

I programmi 

Il programma CALCOLO DEL 
MCD realizza il calcolo del massimo 


ìoo rem wAmmmmmm 

102 REM 

103 REM CALCOLO DEL MCD 

104 REM 

105 rem mmtcmmmmm 

106 REM 

110 REM PROF. G. C. BAR0ZZ1 

120 HOME 

125 MAX = 999999999 
130 PRINT "INTRODURRE I DUE NUMERI*: PRINT 
140 INPUT *N = ';N: 1F N < = 0 OR N > MAX THEN 140 

150 INPUT *M = *;M: IF M < = 0 OR M > MAX THEN 150 

160 PRINT 

170 PRINT "DIVIDENDO DIVISORE QUOZIENTE RESTO* 

180 PRINT *-* 

190 IF M = 0 THEN 290 
200 GET Al 

210 Q = INT (N / M):R = N - 0 * M 
220 NI = STRI (N):M$ = STRI <M):QI = STRI (Q):RI = STRI 
(R) 

230 KTAB 10 - LEN (NI): PRINT NI; 

240 HTAB 20 - LEN (MI): PRINT MI; 

250 HTAB 30 - LEN (Gl): PRINT »; 

260 HTAB 40 - LEN (RI): PRINT RI 

270 N = M:M = R 
280 GOTO 190 

290 PRINT : REM — FINE CICLO — 

300 PRINT *-* 

310 PRINT ’MCD = *:N 

320 PRINT : PRINT J UN ALTRO CALCOLO? ( S/N ) *; 

330 GET Al: IF Al = *S* THEN 120 
340 END 


DOS 3.3 «'W 
ProDOS 

APPLE //t -#111 
APPLE //c -«IIII 
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MCD<13,8) = 1 


comun divisore tra due interi positivi, 
visualizzando, ad ogni passaggio, il 
quoziente ed il resto della divisione 
effettuata; la pressione di un tasto 
(istruzione 200) provoca l’avanzamen¬ 
to del programma da una coppia alla 
successiva, fino alla determinazione 
del MCD. I dati in ingresso non devo¬ 
no superare il numero 999999999, 
massimo intero rappresentabile sullo 
schermo senza passare alla "notazione 
scientifica". 

Nel programma VISUALIZZA¬ 
ZIONE DELL’ALGORITMO EU¬ 
CLIDEO, scritto come il precedente 
in BASIC Applesoft, il procedimento 
descritto viene visualizzato rappresen¬ 
tando ogni coppia, a partire dalla cop¬ 
pia iniziale (n, m), mediante un punto 
del piano, riferito ad una coppia di assi 
cartesiani ortogonali. Otteniamo una 
sequenza finita di punti, dotata delle 
seguenti proprietà: 

1) a partire dal secondo punto, l’a¬ 
scissa di ogni punto è l’ordinata del 
punto precedente; 

2) eccettuato al più il punto iniziale, 
ogni punto è al disotto della diagonale 


del primo quadrante; 

3) eccettuato al più il punto iniziale, 
le ascisse dei punti in questione costi¬ 
tuiscono una sequenza strettamente 
decrescente. 

Per evidenziare la proprietà (vedi 
figura 1), nelle figure che ilustrano i 
programmi ogni punto generato dal 
programma è congiunto al punto suc¬ 
cessivo mediante due lati di una spez¬ 
zata a lati paralleli agii assi: i vertici di 


tale spezzata che non appartengono 
alla diagonale del primo quadrante so¬ 
no i punti rappresentativi delle coppie 
che ci interessano. 

Sullo schermo dell’elaboratore si 
generano figure simili a quelle che illu¬ 
strano l’articolo, con la differenza che 
il campo di variabilità dei numeri n ed 
m, che costituiscono la coppia iniziale, 
va da 1 a 150. Come nel programma 
precedente, la pressione di un tasto 


Listato 2 


100 REM tótótò&tótótóMAtó&tòtó 
110 REM 

120 REM VISUALIZZAZIONE 

130 REM DELL'ALGORITMO EUCLIDEO 
HO REM PER IL CALCOLO DEL MCD 
150 REM 

160 rem mmmmmmmtiti 

170 REM 

180 REM PROF. 6.C.8AR0ZZI 

190 REM 

200 TEXT : HOME 

210 REM - 

220 REM INGRESSO DATI 

230 REM - 

240 F = 0:F1 = 0 

250 PR1NT 'INTRODURRE 1 DUE NUMERI ( < 150 ) 1 

260 PR1NT : INPUT *N = ':N 

270 1F N < = 0 OR N > 150 THEN GOTO 260 

280 PR1NT : INPUT 'M = ' :M 

290 IF M < 0 OR M > 150 THEN GOTO 280 

300 REM - 

310 HGR : HC0L0R= 3 

320 IF N > 9 OR M > 9 THEN 360 

330 G0SUB 990: REM QUADRO SINISTRO 

340 HPL0T 10 * N,151 - 10 * M:F = 1 

350 GOTO 370 

360 G0SUB 780: REM QUADRO DESTRO 
370 VTAB 21: PRINT ’( ‘;Nj' , ';N;' ) ' 

380 REM. 

390 REM CICLO 

400 REM . 

410 IF M = 0 THEN GOTO 580 
420 GET Al 

430 Q = 1NT (N / M):R = N - Q * M 
440 IF FI = 0 THEN GOTO 480 
450 HPLOT 120 ♦ N.151 - M 


460 HPLOT TO 120 ♦ M,151 - M 

470 HPLOT TO 120 ♦ M,151 - R 

480 IF M > =10 THEN GOTO 540 

490 IF F = 1 THEN GOTO 530 

500 G0SUB 990: REM QUADRO SINISTRO 

510 GOSUB 650: REM PRIMO TRADIMENTO 

520 GOTO 540 

530 GOSUB 720: REM SECONDO TRACCIAMENTO 
540 N = M:M = R 

550 PRINT '( ';N;' , *iM;' )' 

560 GOTO 410 

570 REM . 

580 GET Al 

590 PRINT : PRINT 'MCD = ':N: PRINT 
600 PRINT 'UN ALTRO CALCOLO? (S/N) GET Al 
610 IF Al = 'S' THEN 200 
620 END 

630 REM m+'M+mr+tmmt 

640 REM - 

650 REM PRIMO TRADIMENTO 

660 REM - 

670 HPLOT 100.151 - M * 10 
680 HPLOT TO 10 * M,151 - 10 * M 

690 HPLOT TO 10 * M,151 - 10 * R 

700 F = 1 : RETURN 

710 REM . 

720 REM TRACCIAMENTO SUCCESSIVO 

730 REM. 

740 HPLOT 10 * N,151 - 10 * M 
750 HPLOT T0 10 * M.151 - 10 * M 

760 HPLOT TO 10 * M,151 - 10 * R 

770 RETURN 

780 REM - 

790 REM QUADRO DESTRO 

800 REM - 

810 FI = 1 

820 HPLOT 120,1 T0 120.151 T0 270,151 TO 270,1 TO 120,1 
830 REM-SCALE GRADUATE 
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determina l’avanzamento del pro¬ 
gramma da una coppia alla coppia suc¬ 
cessiva. È interessante osservare cosa 
accade se si parte da una coppia (n, m) 
con n < m (vedi figura 2): alla prima 
iterazione si trova il quoziente 0 ed il 
resto n, quindi la seconda coppia de¬ 
terminata dall’algoritmo è (m, n). In 
altri termini: i due numeri inizialmen¬ 
te dati vengono scambiati tra loro, e si 
riparte con una coppia in cui il primo 
elemento è maggiore del secondo. 

Poiché i grafici generati sullo scher¬ 
mo dell’elaboratore sono di difficile 
lettura quando le coordinate dei punti 
determinati dall’algoritmo sono trop¬ 
po piccole, si è provveduto ad accen¬ 
dere un secondo quadro, a sinistra del 
primo quadro tracciato, (devi figura 
3); quando le coordinate in questione 
scendono al disotto del valore 10 
(istruzione 490), tale quadro (istruzio¬ 
ne 990 — 1200) realizza un ingrandi¬ 
mento del quadrato 10 per 10 del pri¬ 
mo quadro, le cui dimensioni sono 150 
per 150. Il tracciamento dei due quadri 
sullo schermo è governato da due indi¬ 
catori, F ed FI, inizialmente posti 


840 FOR K = 1 TO 14 
850 Y = 1 ♦ K »10 
860 HPLQ7 121 f Y TO 122 ,Y 
870 NEXT K 
880 FOR H = 1 T0 14 
890 X = 120 ♦ H * 10 
900 HPL0T X,150 T0 X,149 
910 NEXT H 

920 REM.DIAGONALE 

FOR K = 122 T0 268 STEP 2 


930 

940 


HPL0T K,271 - K 


950 NEXT K 


960 

970 

980 

990 

1000 

1010 

1020 


HPL0T 120 ♦ N,151 - M 
RETURN 

REM . 

REM QUADRO SINISTRO 

REM . 

IF FI = 0 THEN 1080 


uguali a 0 (istruzione 240); la loro "ac¬ 
censione", corrispondente al valore 1, 
determina il tracciamento o meno di 
ciascuno dei due quadri. Se si parte da 
due numeri entrambi inferiori a 10, 
viene tracciato soltanto il quadro "pic¬ 


colo", sulla sinistra dello schermo. 

È interessante osservare sperimen¬ 
talmente la diversa lunghezza dell’al¬ 
goritmo euclideo (cioè il diverso nu¬ 
mero di iterazioni necessarie per por¬ 
tarlo a compimento) a seconda dei dati 


Figura 2 



MCD(6,Ò) = 2 


Figura 3 



HPLOT 118,141 T0 118,153 T0 130,153 T0 130,141 T0 118, 
141 

1030 HPL0T 118,146 T0 108.146 T0 108,100 T0 102,100 

1040 REM -FRECCE 

1050 HPL07 103,99 T0 103,101 

1060 HPL0T 104,98 T0 104.102 

1070 REM.QUADRO SINISTRO 


HPLOT 0,51 T0 0.151 T0 100,151 T0 100,51 T0 0,51 

REM . SCALE GRADUATE 

FOR K = 1 T0 9:X = 10 * K 
HPLOT X,150 T0 X,149 


1080 
1090 
1100 
1110 
1120 NEXT K 


1130 FOR K = 1 T0 9:Y = 51 ♦ 10 * K 
1140 HPLOT 1,Y T0 2,Y 
1150 NEXT K 

1160 REM-DIAGONALE 

1170 FOR K = 2 TO 98 STEP 2 
1180 HPLOT K,151 - K 
1190 NEXT K 
1200 RETURN 


10 0 1S 8 

iniziali; un risultato che risale al mate¬ 
matico francese Gabriel Lamé 
(1795 -1870), assicura che il "caso peg¬ 
giore", nel senso che l’algoritmo eucli¬ 
deo richiede il maggiore numero pos¬ 
sibile di passi, si ha quando i numeri n 
ed m inizialmente assegnati sono due 
numeri di Fibonacci consecutivi. Nella 
figura 1 è mostrato il caso dei numeri 
13 e 8. Lasciamo al lettore di scoprire 
quanti passi sono necessari per la cop¬ 
pia (144, 89): si tratta dei due numeri 
di Fibonacci più grandi, compatibili 
con il vincolo di non superare il nume¬ 
ro 150. 

Giulio Cesare Barozzi 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
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presenta il suo nuovo catalogo software e hardware per Macintosh 

Tutti i prezzi del software sono comprensivi di iva. 


Software di sistema: 

• HIPPO C: (Hippopotamus Software). 
Editor e compilatore C Mac. Level 1 : Lit. 
472.200; Level 2: Lit. 1.302.700; Upgrade 
1-2: Lit. 817.500. 

• MAC MEMORY: (Assimilation Process). 
Accede più la memoria del 512K. Lit. 

111.200. 

• MAC TURBO TOUCH: (Assimilation 
Process). Turbo charged mouse. Lit. 
470.900. 

Gestione archivi: 

• DESK ORGANISER: (Warner). Databa¬ 
se dinamica. Lit. 444.700. 

• MACLION DATABASE: (Computer 
Software Design). Database relazionale 
con linguaggio speciale. Lit. 1.239.300. 

• OVERVIEW: (ProVue). Gestione infor¬ 
mazioni. Lit. 882.900. 

• FACTFINDER: (Forethought). Archivio 
freeform. Lit. 487.200. 

Gestione amministrativa 
e finanziaria: 

• MAC CASH: (Peachtree). Lit. 572.300. 

Ufficio moderno: 

• JAZZ FOR MAC: (Lotus). Software inte¬ 
grato con word processing; worksheet 
analisi, database, grafiche gestionali, co¬ 
municazioni. Lit. 1.780.700. 

• THINK THANK 512: (Living Videotext). 
Lit. 732.500. 

• MAC OFFICE: (Creighton Develop- 
ment). Lit. 117.700. 

• DESK TOPPERS: (Harvard Associa¬ 
tes). Accessorie per l’ufficio. Lit. 150.400. 

• MEGAFORM: (Megahaus). Per riempire 
i modelli. Lit. 964.700. 

Applicazioni professionali: 

• NEGOTIATION EDGE: (Human Edge). 
Per trattare meglio. Lit. 882.900. 

Calcolo tecnico e scientifico: 

• MICRO PLANNER: (Micro Planning). 
Analisi per esclusione. Lit. 1.226.300. 

Applicazioni grafiche 
e tecniche: 

• MAC THE KNIFE 2: (Miles). Più immagi¬ 
ni per la libreria. Lit. 147.000. 

• MAC PUBLISHER: (Boston Telecompu¬ 
ter). Layout per i newsletter. Lit. 356.400. 

• ART DEPARTMENT: (Business Profes¬ 
sional Software). Grafiche per l’azienda. 
Lit. 637.700. 

• PROPRINT: (Creighton Development). 
Grafiche professionali per documenti. Lit. 
219.000. 


• MOUSE AROUND: (Frontrunner). Tool 
per disegni. Lit. 179.700. 

• MAC AUTHOR: (Icon). Programma di¬ 
namica di grafiche per documenti. Lit. 

552.600. 

• MAC ENHANCER: (Microsoft). Perfe¬ 
zionare le grafiche. Lit. 817.500. 

• ANIMATION TOOLKIT: (Ann Arbor). 
Tools per l’animazione. Lit. 147.200. 

• GRAPHICS MAGICIAN: (Penguin). 
Programma grafiche. Lit. 143.900. 

Comunicazioni: 

• MAC-EPSON CONNECTION: (Assimi¬ 
lation Process). Connettere il Mac all’Ep- 
son. Lit. 372.000. 

• MAC TO APPLE COMMS: (Southea- 
stern). Trasferimenti archivi Mac-Apple. 
Lit. 150.300. 

• MAC TO IBM COMMS: (Southeastern). 
Trasferimenti archivi Mac-lbm. Lit. 
196.000. 

• VISCOM: Preste! Comms Software. (AM 
Technology). Lit. 245.250. 


La S. E. C. presenta una grande 
novità: i suoi giochi per Mac! 


Giochi: 

• MACJACK BLACKJACK: (Datapak). 
Lit. 147.000. 

• SARGON III: (Hayden). Lit. 147.200. 

• ZORK III: (Infocom). Lit. 139.800. 

• PENSATE: (Penguin). Lit. 117.700. 

• FROGGER: (Sierra on Line). Lit. 

118.200. 

• BARON MAC: (B.C.). Lit. 176.600. 

• MILLIONAIRE MAC: (B.C.). Lit. 

176.600. 

• TYCOON MAC: (B.C.). Lit. 176.600. 

• SQUIRE: (B.C.). Lit. 209.300. 

• HOLY GRAIL: (Hayden). Lit. 238.700. 

• MIND PROBER: (Human Edge Softwa¬ 
re). Lit. 140.600. 

• WITNESS MAC: (Infocom). Lit. 117.700. 

• SEASTALKER MAC: (Infocom). Lit. 
117.700. 

• SUSPENDED MAC: (Infocom). Lit. 

176.600. 

• STARCROSS: (Infocom). Lit. 176.000. 

• ENCHANTER: (Infocom). Lit. 147.200. 

• DEADLINE: (Infocom). Lit. 176.600. 

• INFIDEL: (Infocom). Lit. 147.200. 

• PLANETFALL: (Infocom). Lit. 117.700. 


• MACATTACK: (Miles Computing). Lit. 

147.200. 

• XYPHUS MAC: (Miles Computing). Lit. 
117.700. 

• FUNPACK MAC: (Videx). Lit. 117.730. 

• MACCHECKERS -& REVERSAL: (Vi¬ 
dex). Lit. 147.200. 

• MACVEGAS: (Videx). Lit. 170.000. 

La S.E. C. presenta una grande 
novità per Mac: 


HARDWARE: (prezzi iva esclusa). 


• DAVONG MAC DISKS: Espansione di 
memoria molto dinamica. 10MB Hard disk 
Lit. 5.850.000; 21MB hard disk Lit. 
8.385.000; 32Mb hard disk Lit. 10.185.000; 
40MB hard disk Lit. 11.985.000. 

• MOCKINGBOARD: (Sweet Micro Sy¬ 
stems). Sound board più avanzata. Lit. 
340.100. 

• IMAGEWRITER EMULATOR FX/RX: 

(Hanson). Scheda emulatore per stam¬ 
pante Epson per compatibilità con Ima- 
gewriter. Lit. 326.800. 

• IMAGEWRITER EMULATOR MX: 

(Hanson). Lit. 326.800. 

• UPGRADE 128K-256K MAC: Upgrade 
Kit. Lit. 1.631.700. 

• THUNDERSCAN: (Thunderware). Leg¬ 
ge disegni riportandoli sullo schermo. Lit. 
747.000. 

Accessori: 

• MACTILT: (Ergotron). Screen adjust- 
ment per Mac. Lit. 327.000. 

• PAINTMATE: (Hogland). Facilita il tra- 
cing sullo screen del Mac. Lit. 163.300. 

• MAC DUST COVER: Protezione dalla 
polvere per il tuo Mac. 

• MAC SWIVEL: (Kensigton). Swivel base 
per Mac. Lit. 690.000. 

• MOUSE CLEANING KIT: (Kirkstalt). Pu¬ 
lizia per il mouse. Lit. 32.500. 

• MICRON EYE: (Micron Technology). 
Rende il Mac un apparecchio fotografico 
per fotograre i vostri documenti. Lit. 
1.389.800. 


DISPONIBILI PRESTO: 

non ancora quotati 

• QUARTET: (Haba Systems). 

• EXPERLOGO: (Expert Intelligence). 

• MAIL CENTRE FOR APPLETALK: (Vi¬ 
dex). 


Tutti i prezzi di questo catalogo si intendono al pubblico. 

Ai rivenditori Apple verranno praticati sconti, anche per quantità. 
Telefonateci per maggiori informazioni. 



Software 


Con un modesto sovrapprezzo 
consegne a domicilio in 48 ore 


SBBBDBBB9 SDBBBBBD SSSBQQSG 

via Molino 2. 22030. Montorfano (Como). Telefono (031) 200621. Telex 340422 WTC-I-SEC 








































SCUOla 

Nato per iniziativa delle università americane, 
giunto in Italia per iniziativa dell’università di 
Bologna, il software del Progetto Seraphim si pone 
come punto di riferimento pertutti gli insegnanti di 
materie chimiche che desiderano utilizzare 
microcalcolatori nella loro opera d’insegnamento. 


Progetto Seraphim 


I microcalcolatori si stanno diffon¬ 
dendo sempre di più nelle scuole; 
questo fatto determinerà, anche se in 
tempi certamente non brevissimi, un 
inevitabile profondo cambiamento nei 
metodi di insegnamento. Questo cam¬ 
biamento potrà portare a un migliora¬ 
mento della didattica solo se si comin¬ 
cia subito a esplorare le potenzialità e i 
limiti dei nuovi ausili didattici la cui 
utilità è strettamente connessa al loro 
modo d’impiego. Attualmente il prin¬ 
cipale problema che si presenta agli 
insegnanti che vogliano utilizzare il 
calcolatore è il reperimento del soft¬ 
ware necessario. A tale proposito la 
Divisione di Didattica Chimica della 
Società Chimica Italiana si è inserita 
nel progetto SERAPHIM che è sorto 
negli Stati Uniti sotto gli auspici della 
NSF con lo scopo di diffondere e sti¬ 
molare l’impiego del microcalcolatore 
nell’insegnamento della chimica. 

Attualmente la Divisione ha a di¬ 
sposizione 44 programmi didattici e 10 
programmi di Utilities divisi in 11 di¬ 
schetti; tutto il software è scritto per 
calcolatori Apple e richiede un solo 
drive e 48 K di memoria (un solo pro¬ 
gramma richiede 64 K); qualche pro¬ 
gramma richiede l’uso delle paddles. 

I programmi didattici possono esse¬ 
re classificati in tre categorie: genera¬ 
tori di esercizi, simulazioni di esperi¬ 
menti di laboratorio, giochi a sfondo 
chimico; sono molto facili da usare e in 
genere sono adatti alle scuole secon¬ 
darie superiori o per un primo anno di 
Università. La distribuzione dei di¬ 
schetti alle scuole interessate è curata 
dalla Divisione Didattica Chimica 
che, non avendo scopi di lucro, vende i 
dischetti al prezzo di L. 7.000 4- Iva 
18% cadauno; questo prezzo partico¬ 
larmente contenuto è reso possibile 
dal lavoro volontario di chi si occupa 


del progetto e dalla collaborazione 
della MicroSystem, rivenditore auto¬ 
rizzato Apple di Bologna, che fornisce 
i dischetti a prezzo di favore. 

In cambio di questo prezzo la Divi¬ 
sione richiede la collaborazione degli 
insegnanti che sono pregati di restitui¬ 
re compilata una scheda di valutazione 
dei programmi utilizzati; si spera così 
di poter avere, in tempi ragionevoli, i 
dati necessari per un giudizio sull’effi¬ 
cacia didattica dei singoli programmi. 

Quasi tutti i programmi sono scritti 
in BASIC e non hanno alcuna prote¬ 
zione; questo fatto, assieme al prezzo 
irrisorio, rappresenta il principale 
vantaggio dell’insieme dei program¬ 
mi. Infatti essi si presentano come un 
sussidio didattico abbastanza flessibi¬ 
le, modificabile, senza molte difficol¬ 
tà, secondo le esigenze di ogni inse¬ 
gnante. D’altra parte questi program¬ 
mi non costituiscono un insieme coor¬ 
dinato teso a coprire tutto un corso di 
chimica ma certamente fra i vari argo¬ 
menti trattati, che vanno dalla chimica 
generale e inorganica alla chimica or¬ 
ganica alla chimica analitica, ogni in¬ 
segnante potrà trovare materiale adat¬ 
to per il suo corso. I programmi sono 
stati raggruppati per argomenti in cia¬ 
scuno dei dischetti e il titolo dato ad 
ogni disco dà un’idea del contenuto: 

Disco STRUTTURA: contiene 
quattro programmi. 

Disco CINETICA ED EQUILI¬ 
BRIO: contiene quattro programmi. 


Per ogni ulteriore informazione 
sul progetto e sulle .modalità di 
acquisto dei dischetti rivolgersi 
a: Prof. Giuseppe Innorta. Isti¬ 
tuto Chimico “ Ciamician ”, Via 
Selmi 2, 40126 Bologna. 


Disco STECHIOMETRIA: contie¬ 
ne sette programmi. 

Disco MOLARITÀ: contiene sei 
programmi. 

Disco ANALITICA: contiene sette 
programmi. 

Disco ACIDI E BASI: contiene cin¬ 
que programmi. 

Disco ORGANICA: contiene quat¬ 
tro programmi. 

Disco LEGGI DEI GAS: contiene 
cinque programmi. 

Disco OTTANO: contiene due pro¬ 
grammi. 

Disco CHEMICAL DUNGEON: 
contiene un gioco di avventure a sfon¬ 
do chimico. 

Disco UTILITIES: contiene nove 
programmi. 

Non è stata fatta alcuna selezione 
fra i programmi, che sono quindi tutti 
quelli pervenuti dagli Stati Uniti anche 
se, a giudizio dei traduttori, alcuni di 
essi sembrano rivestire minore inte¬ 
resse; si è voluto lasciare agli inse¬ 
gnanti ogni giudizio di merito perché 
riteniamo che solo la verifica a scuola 
rappresenti un test significativo di 
qualsiasi ausilio didattico. 

E anche da tener presente che que¬ 
sti programmi rappresentano solo un 
punto di partenza e che suggerimenti 
su modifiche da effettuare o nuovi 
programmi da inserire nella rete di di¬ 
stribuzione sono fortemente caldeg¬ 
giati. 

Prima di chiudere devo un doveroso 
ringraziamento ai colleghi che hanno 
collaborato alla traduzione dall'ingle¬ 
se dei programmi: G. Avitabile, U. 
Lepore, C. Della Volpe dell’Universi¬ 
tà di Napoli. R. Ambrosetti del CNR 
di Pisa, L. Operti dell’Università di 
Torino, D. Perugini dell’Università di 
Bologna. 

Giuseppe Innorta 
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Applicando si fa partecipe dell'iniziativa che ha lo 
scopo di diffondere il Progetto Seraphim, 
pubblicando ogni mese un programma scelto tra il 
software che compone il progetto stesso. Il 
programma, com’è nello stile della nostra rivista, 
verrà illustrato nelle sue componenti essenziali e 
commentato nel suo listato. 

Isomeri 


I l programma “Isomeri” è compreso 
nel dischetto “Struttura” assieme a 
“VSEPR”, “Stereochimica” e “Dise¬ 
gna le molecole”. 

VSEPR è un programma che mo¬ 
stra le geometrie prevedibili in base 


alla teoria della repulsione delle cop¬ 
pie di elettroni di valenza per alcune 
semplici molecole contenente anche 
coppie di elettroni di non legame; il 
programma offre la possibilità di fare 
ruotare le molecole attorno ai tre assi 


cartesiani. 

“Stereochimica” è un programma 
che mostra molecole organiche viste 
come proiezioni di Fisher e chiede di 
indicare se la molecola è chirale e se la 
sua configurazione è R o S. Si può 
scegliere tra molecole con uno o due 
centri chirali, con o senza legami mul¬ 
tipli. “Disegna le molecole” è un pro¬ 
gramma complesso che permette di 
rappresentare una molecola di cui sia¬ 
no conosciute le coordinate, di esegui¬ 
re calcoli di angoli e distanze di lega¬ 
me, cambi di coordinate, modifiche 
della struttura presentata mediante 
raggiunta o Peliminazione di atomi. 
Nel dischetto è già contenuto un file di 
dati relativo al benzene cromo tricar- 
bonile e c’è la possibilità di creare nuo¬ 
vi files di dati; per usare proficuamen¬ 
te questo programma occorre una di¬ 
screta conoscenza di strutturistica chi¬ 
mica. 


Listato 


100 REM ««1S0NERS PROGRAM*** 

110 REM UPDATED 8/6/82 

120 REM WRITTEN 8Y 
130 REM RICHARD CORNELIUS 

140 REM CHEM1STRY DEPT. 

150 REM W1CHITA STATE UNIV. 

160 REM W1CH1TA, KS 67208 

170 REM 

180 REM PRONE (316) 689-3120 

190 REM ** PAGINA DI SALUTO ** 

200 DIM DF(ò6) 

210 POKE - 16368,0: REM RIPRISTINA L'ATTIVAZIONE DELLA TASTI 
ERA 

220 HOME : VTAB 4: PRINT $PC( 7) ;'***************************' 
230 PRINT SPC( 7) :** RELATI0NSHIP 0F ISOMERS * 

240 PRINT SPC( 71 ***************************** 

250 VTAB 10: PRINT 'ÙIRITTEN BY RICHARD CORNELIUS* 

260 PRINT SPC( 11) DEPARTMENT OF CHEMISTRY* 

270 PRINT SPC< 11):*UIICHITA STATE UNIVERSITY* 

280 PRINT SPC( 11);*WICHITA, KS 67208* 

290 REM PH0NE (316) 689-3120 

295 PRINT : PRINT : PRINT 'TRADUZIONE DI G.IMORTA E D.PERUGINI 

300 VTA8 20: PRINT 'BATTI UN TASTO QUALUNQUE PER COMINCIARE* 

310 IF PEEK ( - 16384) < 128 THEN 310 

320 GET Gi 

330 REM ISTRUZIONI 

340 HOME : PRINT 'QUESTO PROGRAWA INTENDE AIUTARVI A* 

350 PRINT 'RICONOSCERE GLI ISOMERI DEI COMPLESSI' 

360 PRINT 'OTTAEDRICI DEI METALLI DI TRANSIZIONE' 

370 VTAB (5): PRINT 'VI SAftWNO MOSTRATE DUE STRUTTURE CHE* 

380 PRINT •POSSONO ESSERE REALMENTE DIVERSE 0 CHE" 

390 PRINT 'DIFFERISCONO SOLO PER L ORIENTAZIONE" 

400 PRINT 'VOI DOVETE STABILIRE SE LE STRUTTURE" 

410 PRINT 'SONO ENANTIOMERI.ISOMERI GEOMETRICI 0" 

416 PRINT 'SE SONO INVECE IDENTICHE" 

420 VTAB (12): PRINT 'LA STRUTTURA DI DESTRA PUÒ' VENIRE* 

430 PRINT 'RUOTATA ATTORNO AGLI ASSI X,Y E Z PER' 

440 PRINT 'VEDERLA NELL'ORIENTAZIONE DESIDERATA" 

450 PRINT "LA POSIZIONE DEI TRE ASSI VI SARA'" 

455 PRINT 'MOSTRATA SE CHIEDERETE DI RUOTARE LA* 

460 PRINT 'LA STRUTTURA" 

470 VTAB (20): PRINT 'BATTI UN TASTO QUALUNQUE PER CONTINUARE' 
480 REM ** VALORI INIZIALI DELLE 'VARIABILI 
490 T ( 1) = 3:T(2) = 4:T(3) = 1:T(4) = 2:T(5) = 6:T(6) = 5: REM * 
*VIENE DEFINITA LA POSIZIONE TRANS** 

500 REM ** LE LINEE 510-550 DAWO IL SENSO DI ROTAZIONE USATO P 
ER DEFINIRE GLI ENANTIOMERI (VEDI SUB A 1770) 

510 DF(51) = 2:DF(63) = 2:DF(35) = 2:DF(16) = 2:DF(53) = 4:0F(61 
) = 4:DF(3ó> = 4 : DF(15) = 4 

520 DF<54) = 1 :DF ( 62) = 1:DF(46) = !:DF<25) = 1:DF(52) = 3:DF(64 
) = 3:DF< 45) = 3:DF(2ó) = 3 

530 DF<41) = 5:DF( 23) = 5:DF<34) = 5:DF(12) = 5:DF(43) = 6:DF(21 
) = 6:DF(32) = ó:DF(14) = 6 
540 BLì = * 


550 lì(0> = "IDENTICHE. ':I$(D = 'EMNT10MER1. 

560 Iì<2) = 'ISOMERI GEOMETRICI. 

570 Ad) = 1287:A(2> = 1299:A(3) = 1078:A(4) = 1066:A(5) = 1034: 
A(ó) =1330 

580 Bd) = 1305:8(2) = 1317:8(3) = 1096:B(4) = 1084:B(5) = 1052: 
B(6) = 1348 

590 DGÌ(O) = ' 1 " 

600 DGì(l) = " . .* 

610 DGÌ(2) = ' . 1 . . ! 

620 D6ì(3) = ' . ' . . ' 

630 D6ì(4) = ' . M . M ." 

640 DGì<5) = ' 

650 DG$<6) = ' ' 

660 DGì<7) = DGì(0) 

670 DGÌ(8) = DGÌ(O) 

680 REM ** SCELTA DEI LEGANTI ** 

690 F0R V = 1 T0 6:AC(V) = 1NT ( RND (1) * 6 ♦ 1):BC(V) = AC(V 
): NEXT 

700 R = INT ( RND (1) * 2 * 3) 

710 IF ACd) = AC(R) THEN 690 
720 BCd) = AC(R.):BC(R) = ACd) 

730 AXì = CHRì ( RND (1) * 3 + 192) 

740 60SU8 1710: REM CAMBIO DELL'ORIENTA210t4E 

750 F0R V = 1 T0 ó:DC(V) = AC(V>: NEXT 

760 GOSUB 1770 : SA = SD : E1 = EN 

770 F0R V = 1 TO Ó:DC(V) = BC(V): NEXT 

780 GOSUB 1770: IF SA < ) SD THEN IS = 2: GOTO 850 

790 IF E1 < > EN THEf4 IS = 1: GOTO 850 

800 IS = 0 

810 FOR V = 2 TO 6: IF AC(V) < > BC(V) THET4 X = 1 
820 NEXT 

830 IF X = 0 THEN 690 
840 X = 0 

850 IF PEEK ( - 16384) < 128 THEN 850 
860 REM ** STAMPA DELLE STRUTTURE ** 

870 POKE 34,0: HOME : VTAB 2: FOR V = 0 TO 8: PRINT DGÌ(V): NEXT 
880 POKE 34.12 

890 FOR V = 1 T0 6: POKE A(V),AC(V) * 192: NEXT 

900 FOR V = 1 TO 6: POKE BtV).BC(V) + 192: NEXT 

910 REM ** DOMANDE PER L'UTILIZZATORE ** 

920 X = PEEK ( - 16384) 

930 'VTAB 13: PRINT "VUOI RUOTARE LA STRUTTURA DI DESTRA?' 

940 PRINT "(S=SI, N=NG) 

950 IF PEEK ( - 16384) < 128 THEN 950 
960 GET 6$ 

970 IF Gì = '$' THEN 1010 

980 IF Gì = B N' THEN 1180 

990 GOTO 950 

1000 REM ** ROTAZIONE DELLA STRUTTURA DI DESTRA ** 

1010 HOME : PRINT "PUOI RUOTARE ATTORNO AGLI ASSI X, Y E Z" 

1020 PRINT 'PREMENDO LE LETTERE CORRISPONDENTI 
1030 PRINT 'PER OGNI BATTUTA SI AVRA' UNA ROTAZIONE" 

1040 PRINT 'DJ 90 GRADI IN SENSO ORARIO" 

1060 GOSUB 1910: REM AXIS DIAGRAM 

1070 VTAB (20): PRINT 'QUANDO VUOI SMETTERE DI' 

1080 PRINT "RUOTARE LA STRUTTURA BATTI F* 

1100 IF PEEK ( - 16384) < 128 THEN 1100 


DOS 3.3 «fMH 
ProDOS 4llll 
APPLE //, tini 
APPLE //c tllll 


H 
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Il programma 

Le strutture ottaedriche sono molto 
comuni nella chimica dei composti di 
coordinazione e se attorno al metallo 
centrale sono presenti leganti di natu¬ 
ra diversa sono possibile diverse strut¬ 
ture isomeriche. La normale rappre¬ 
sentazione bidimensionale sulla carta 
di questi complessi rende poco agevo¬ 
le il confronto fra due strutture, dato 
anche il fatto che gli studenti tendono 
a considerare non equivalenti le posi¬ 
zioni equatoriali e assiali, mentre in un 
ottaedro perfetto tutte le distanze di 
legame metallo-legante sono uguali. 
L’impiego di modelli molecolari tridi¬ 
mensionali chiarisce bene le orienta¬ 
zioni reciproche fra i leganti nello spa¬ 
zio ma non fornisce particolare aiuto 
quando si devono confrontare due 
strutture proiettate sul piano. Il pro¬ 
gramma “Isomeri” si pone come colle¬ 


gamento fra le rappresentazioni tridi¬ 
mensionali e quelle bidimensionali in 
modo da dare agli studenti una com¬ 
prensione migliore delle rappresenta¬ 
zioni bidimensionali che comunemen¬ 
te si trovano nei libri di testo e che ogni 
insegnante è costretto a impiegare nel¬ 
le sue lezioni. 

Il programma è di impiego molto 
facile e le spiegazioni complete per il 
suo uso sono date dall’inizio (linee 
330-470). 

Due strutture ottaedriche che han¬ 
no la stessa serie di leganti sono mo¬ 
strate sullo schermo. I leganti sono 
scelti a caso e rappresentati dalle pri¬ 
me sei lettere dell’alfabeto (linee 690- 
730); il programma chiede quindi se le 
due strutture sono identiche, enantio- 
meri o isomeri geometrici. Prima di 
rispondere, l’utilizzatore può fare ruo¬ 
tare la struttura di destra attorno ai tre 
assi cartesiani (subroutine da 1390 a 


1700) tante volte quante ritiene neces¬ 
sarie. La rotazione avviene gradual¬ 
mente con pause intermedie ed è ac¬ 
compagnata da un segnale audio per 
attirare l’attenzione dello studente. 
Quando è stata raggiunta una conclu¬ 
sione, il calcolatore controlla la rispo¬ 
sta ricevuta, e in caso di errore invita 
lo studente a continuare le rotazioni 
fino a quando non viene data la rispo¬ 
sta esatta. L’algoritmo usato per de¬ 
terminare la relazione isomerica fra 
due strutture presentate (subroutine 
da 1770 a 1910) è basato sulla procedu¬ 
ra messa a punto e utilizzata corrente- 
mente dal Chemical Abstract (vedere 
M. F. Brown, R. R. Cook, T. E. 
Sloan, Inorg. Chem., voi. 14, pag. 
1273, (1975)). 

Il modo di generare le strutture ot¬ 
taedriche visualizzate sullo schermo 
consente di continuare l’esercitazione 
quanto si vuole. Giuseppe innorta 


1110 1F PEEK < - 16384» < 128 THEN 1100 
1120 6ET AXI: 1F AXI = "F* THEN 61 = "N" : GOTO 1180 
1130 IF AXI ; > VX 1 AND AXI < > , Y* AND AXI < > "Z" THEN 111 
0 

1140 GOSUB 1390: REM ** ALLA SUBR0LTTINE DI R0TA210NE #* 

1150 F0R V = 1 T0 é: P0KE BWJ.BCCV) + 192: NEXT 
1160 GOTO 1110 

1170 REM ** RICHIESTA DI RISPOSTA ** 

1180 HOME : PR1NT 'QUESTE DUE STRUTTURE SONO ENANTIOMERI 
1190 PR1NT "ISOMERI GEOMETRICI 0 SONO IDENTICHE 9 " 

1200 PRINT '(RISPONDI E, G OPPURE I)': 

1210 IF PEEK < - 16384) < 127 THEN 1210 
1220 6ET Gl 

1230 IF Gl < > 'E' AND Gl < ) "G" AND Gl < > 'I" THEN 1210 
1240 PRINT “ * :GI 
1250 PRINT CHRI (7) 

1260 IF Gl = B I' THEN GS = 0 

1270 IF Gl = 'E' THEN GS = 1 

1280 IF Gl = 'G' THEN GS = 2 

1290 IF 1S = GS THEN PRINT CHRI (7);: GOTO 1360 

1300 PRINT : PRINT 'NO, NON SONO ";II(GS) 

1310 PRINT : PRINT "BATTI UN TASTO QUALUNQUE PER RUOTARE* 

1320 PRINT "LA STRUTTURA DI DESTRA" 

1330 IF PEEK ( - 16384) < 127 THEN 1330 
1340 GET Gl 
1350 GOTO 1010 

1360 PRINT "ESATTO '!' SONO PROPRIO ' ; ll(GS) 

1370 PRINT : PRINT "BATTI UN TASTO QUALUNQUE PER CONTINUARE": PRINT 
"PER FINIRE BATTI E": GET Al: IF Al = 'E' THEN PR£ 6 

1371 GOTO 690 
1380 END 

1390 REM ** SUBROirriNE DI R0TA210NE ** 

1400 IF AXI = "Y' THEN 1520 
1410 IF AXI = 'Z' THEN 1620 

1420 B = BCC1 ) :BC<1) = BC(6):BC(6) = BC(3):BC(3) = BC(5):BC(5) = 

B 

1430 P0KE B(1).160: POKE B(5),160: POKE B(3),160: P0KE B(6),160 
: PRINT CHRI (7); 

1440 POKE 1183,BC(3) + 192: POKE 1223,BC(6) ♦ 192: POKE 1090,BC 
(1) + 192: POKE 1178,8C(5) + 192 
1450 F0R V = 1 TO 133: NEXT 

1460 POKE 1183,160: POKE 1223,160: POKE 1090,160: POKE 1178,160 
: PRINT CHRI (7); 

1470 POKE 1569,BC<3) * 192: POKE 1349,BC<6) ♦ 192: POKE 1689,BC 
(1) + 192: POKE 1051,BC(5) ♦ 192 
1480 FOR V = 1 T0 133: NEXT 

1490 POKE 1569,160: POKE 1349,160: POKE 1689,160: POKE 1051,160 
: PRINT CHRI (7); 

1500 FOR V = 1 T0 50: NEXT 
1510 RETURN 

1520 B = BC(5):BC(5> = BC(4):BC<4) = BC(6):BC(Ó) = 8C(2):BC(2> = 

B 

1530 POKE 6(5).160: POKE B(2),160: POKE B(6),160: POKE B(4),160 
: PRINT CHRI (7); 

1540 POKE 1055,BC(2) ♦ 192: POKE 1828,BC<6) ♦ 192: POKE 1345,BC 
(4) t 192: POKE 1557,BC(5) + 192 
1550 FOR V = 1 TO 133: NEXT 


1560 POKE 1055,160: POKE 1828,160: POKE 1345,160: POKE 1557,160 
: PRINT CHRI (7); 

1570 POKE 1187,BC<2) ♦ 192: POKE 1225,6C<6) ♦ 192: POKE 1214,BC 
(4) ♦ 192: POKE 117ó,BC(5) ♦ 192 
1580 FOR V = 1 T0 133: NEXT 

1590 POKE 1187,160: POKE 1225,160: POKE 1214,160: POKE 1176,160 
: PRINT CHRI <7); 

1600 FOR V = 1 TO 50: NEXT 
1610 RETURN 

1620 B = BC(1):BC(1) = BC<4):BC(4> = BC(3):BC(3) = BC(2):BC(2) = 
B 

1630 POKE 8(1),160: POKE B(2>,160: POKE B(3),160: POKE B(4),160 
: PRINT CHRI (7); 

1640 POKE 1181,BC<2) ♦ 192: POKE 1573,BC(3) 4 192: POKE 1221,BC 
(4) ♦ 192: POKE 1684,BC(1) ♦ 192 
1650 FOR y = 1 T0 133: NEXT 

1660 POKE 1181,160: POKE 1573,160: POKE 1221,160: POKE 1684,160 
: PRINT CHRI (7); 

1670 POKE 1185,BC(2) + 192: POKE 1955,BC(3) ♦ 192: POKE 1217,BC 
(4) ♦ 192: POKE 1430,BC(1) + 192 
1680 FOR V = 1 TO 133: NEXT 

1690 POKE 1185,160: POKE 1955,160: POKE 1217,160: POKE 1430,160 
: PRINT CHRI (7); 

1700 RETURN 

1710 REM ** INTERSCAMBIO DI LEGANTI ** 

1720 IF AXI = "Y" THEN 1750 

1730 IF AXI = "Z" THEN 1760 

1740 B = BC(1):BC<1 ) = BC«6):BC<6) = BC(3):BC(3) = BC(5):BC(5) = 
B: RETURN 

1750 B = BC(5):BC(5) = BC(4):BC(4) = BC(6):BC(6) = BC(2):BC(2) = 
B: RETURN 

1760 B = BC(1):6C(1) = BC(4):BC(4) = BC(3):BC(3) = BC(2):BC(2) = 
B: RETURN 

1770 REM ** SUBROUTINE PER LA DIST1NZ10T4E DEGLI ISOMERI « 

1780 REM ** PR E IL NUMERO DI PRIORITÀ' UTILIZZATO PER LA RESO 

LA DELLA MASSIMA DIFFERENZA TRANS ** 

1790 L = 66 

1800 FOR y = 1 TO 6:PR(V) = 10 * DC(V) ♦ 6 - DC(T(V)):P(V) = PR 

<V) 

1810 IF PR(V) < L THEN L = PR(V):V1 = V 
1820 NEXT 

1830 P(V1) = 66:P<T (VI ) ) = 66:L = 66 
1840 FOR V = 1 TO 6 
1850 IF P(y) < L THEN L = P(V):V2 = y 
1860 NEXT :SD = 10 * DC(T(VD) ♦ DC<T(V2)) 

1870 FOR V = 1 TO 5: FOR U = V ♦ 1 T0 6: IF PRW) = PR(U) THEN 
EN = 0: RETURN 
1880 NEXT U: NEXT y 
1890 VT = 10 * VI ♦ V2 

1900 EN = DC(DF(VT)) - DC(T(DF(VT))): RETURN 
1910 REM ** PICCOLO DIAGRAMMA DEGLI ASSI « 

1*920 VTAB 18: HTA6 36: PRINT 'Z' 

1930 HTAB 35: PRINT 

1940 VTAB 20: HTAB 34: PRINT ". M .' 

1950 HTAB 33: PRINT ' . ' 

1960 HTAB 32: PRINT VX 1 Y" 

1970 RETURN 
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applicando 

si trova anche qui 

Ecco un elenco dei computer shop presso i quali è possibile abbonarsi ad Applicando , 
acquistare una copia, cercare un numero arretrato... 


I 

LOMBARDIA 


Almé(BG) 

Elcod Viale Italia 45/A 

A ssago (MI) 

Basic Computers Centro 
Commerciale Milano Fiori 

Bergamo 

Studio 15 srl Via Quarenghi 60 
Il mondo dell'informatica 
Via ritentino 8 

Brescia 

Alfa computer Via Bassi 26 
Brescia Computers srl 
Via Malta 12 

// Computer srl Via B. Croce 23 
L 'Informatica srl 
Piazza Vescovado 1 
Personal Data di Tamiozzo D. 
Via Brozzoni 4 

Como 

D.S. /. srl Via Dottesio 8 

Como-Albate 

Accaesse Informatica srl 
Via Acquanera 46 

Lecco (CO) 

Computers Lecco snc 
Via Nino Bixio 18/B 
Datamation Via Turati 10 

Lissone (MI) 

Computerlandia-Polli 
Via Martiri Libertà 103 

Milano 

A . G. Informatica srl 
Via G. Silva 49 

Communications Engineering 

Piazza Firenze 4 

Deltron srl Viale Gran Sasso 50 


Edelektron srl 
Corso Sempione 39 
Esprit Via Bergamini 13 
H tpp\ System Piazza Diaz6 
Information Technology 
Via dei Bobbi 7 
Ali Infoi malica Shop 
Via I .i /aretto 2 
Macan sas Via Broletto 39 
Microtech Sistemi Via Piave 7 
SH Computers srl 
Viale Montenero 33 
Softec Computer 
Viale E. Jenner 23 

Monza (MI) 

ESI srl Via Cavallotti 11 
Nikom Electronics Via Asiago 7 

Pavia 

M.A.S. H. Computer Systems 
Strada Nuova 86 
Senna Gianfranco snc 
Via Calchi 5 

Trezzano sul naviglio (MI) 

Personal computer shop 
Via L.da Vinci 36 

Segrate (MI) 

Compusoft di R. Massaroli 
Via Milano 2 - Resid. Lago 
Varese 

IRPEsrl Via Morazzone 8 

LAZIO 


Roma 

Computer Center srl 

Via Nizza 48/52 

Computerai srl 

Via Michele di Landò 41 

Computime srl 

Via Cola di Rienzo 28 

Easy Byte Via Giov. Villani 24 


E.D.P. Market 
Via E. Fermi 116/118 
E.M. EUR Micro Computer srl 
Viale C. Pavese 267 

5.1. G.E. E. I. srl 

Via Nomentana 265-273 

5.1. PR.EL.srl 

Via Pompeo Magno 94 

Roma EUR 

Bit Computers 
Via F. Domiziano 10 

Roma Mostac ciano 

Bit Computers 

Via Giovanni Gastaldi 33 

Viterbo 

Alfa Computer 
Via Palmanova 12/C 


VENETO 


Bassano del Grappa (VI) 

A Tre snc di A rcangeli & C. 

Via Buonarroti 23 

Conegliano (TV) 

Computing Program di Branca 
Viaó. Piovesana 32 

Mestre (VE) 

Pacinotti sas Via Torino 92 

Mirano (VE) 

Saving Elettronica di Miatto 
Via Gramsci 40 

Padova 

Capo villa & C. sas 
Galleria Scrovegni 5 
Computer Service srl 
Via Beethoven 3 
E.D.P. Sistemi srl 
Via Borromeo 16 


Treviso 

A5 Computers srl 
Borgo Cavour 37/A 

Venezia 

AZ Tele market 
Cannaregio 5898 
Personal Computer di 
Mariconda Canareggio 

Verona 

ARMUsrl 

Via Teatro Filarmonico 3 
Esacomp srl Via Roveggia 43 
MOS 80sas Via Germania 21 

Vicenza 

Sevi sas Via S. Agostino 87 

Villafranca (VR) 

Studio 4 C.so V. Emanuele 70 


PIEMONTE 
VALLE D AOSTA 

Aosta 

Informatique sas di Eddy Ottoz 
Av. Conseil des Commis 14 

Alba(CN) 

Centro computer Via Paruzza 2 

Biella (VC) 

Consul Computer srl 
Via delle Rose 2 
Informatica Biella sas 
Piazza S. Paolo 1/B 

Domodossola (NO) 

Nuova Elettronica 
Via Giovanni XXIII68 

Pinerolo (TO) 

Elaborazione Dati Pinerolo 
Corso Piave 42 
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Torino 

A. B. Computer sas 
Corso Grosseto 209 
Digitalsync snc 
Corso Moncalieri 303 
Dimensione Personal 
Via Bertola22/e 
GE. NE. CA . srl Via Bertola 5 
Hobby Elettronica 
Via Saluzzo 11/F-G-H 
Omicron Computers snc 
C.so Duca degli Abruzzi 14 
Pinto G.-Componenti elettr. 
Corso Principe Eugenio 15 bis 
Tecnosystem Computer Shop 
Via Beaumont 10 
Tekno Computers srl 
Via Madama Cristina 31/c 

TOSCANA 


Borgo a Buggiano (PT) 

CO-DI snc di G. Gatti-Chiti 
Via 24 Maggio 117/119 

Grosseto 

Computer s Shop (C. I. S.1. D. ) 
Via Papa Giovanni XXIII 47/49 

Firenze 

Anfrel Informatica sas di F. 
Giagnoni & C. Via Masaccio 50 
Elettronica Cento Stelle srl 
Via Cento Stelle 5/B 
Paoletti Ferrerò 
Via il Prato 40/42 R 
Pascal Tripodo Elettronica 
Via B . della Gatta 26/28 
Soluzioni EDPsrl 
Corso dei Tintori 39R 

Massa 

Euro Computer sas 
Piazza C. Bertagnini 4 

Piombino (LI) 

Centro Ufficio sdf 
Via F.Ferrer 37/39 

Pisa 

Società Elettronica Tirrena 
Via Fucini 20 

Pistoia 

Inter Systems 

Via Pietro Mascagni 14 

Pistoia Frazione Margine 

CO DI snc Via I Maggio 20/22 

Pontedera(PI) 

Data Portsrl 

Via Brigate Partigiane 27 

T erranuova B.ni( AR) 

ICS srl Vìa Roma 10 

EMILIA ROMAGNA 

Bologna 

CEDA Minicomp srl 
Piazza Aldrovandi 2/2 
Computer Systems 
Via Ercolani 10/D 
EDP Sistemi BO srl 
Viale Pietramelara 61/F 
SERCOM Via B. da Carpi 9/B 


Cesena (FO) 

SHCsnc Corso Cavour 157 

Ferrara 

Soc. Termomeccanica 
Via Garibaldi 195 
Mazzacurati Claudio 
Viale Cavour 186/188 
Tecnomeccanica 
Via Garibaldi 195 

Fidenza (PR) 

E MA-Elettronica Industriale 
Via Berenini 6 

Fiorenzuola d’Arda (PC) 

Centro Computer di Sacconi 
Corso Garibaldi 125/A 

Forlì 

A-Z Computer srl Via Cignani 7 
Kronos Via Oreste Regnoli 30 

Modena 

Musetti Elettronica srl 
Via Emilia Centro 211 

Reggio Emilia 

Computer Center srl 
Via D. Alighieri 4 
Esaprogetti Via F.Filzi 2 

Rimini 

Computer Line Via Coletti 61 

Scandiano (RE) 

Informatica System di Cheli 
Via Diaz 11/D 

Viserba di Rimini (FO) 

Computer Center 
Via Pallotta25/A 

FRIULI VENEZIA 
GIULIA 


Pordenone 

Electronic Center snc 
Viale Libertà 79 

Turriaco (GO) 

Tee no Power Elettronica 
Via Marconi 19 

Udine 

BIT Computers 
Via Pozzuolo 107 
PS Elettronica sas Via 
Tavagnacco 89/91 C.C. 

LIGURIA 


Genova 

Computer Center 
Via San Vincenzo 129 r 
SA LS In formatica srl 
Via D'Annunzio 2/35 

Lavagna (GE) 

CR2 Informatica snc 
Corso Genova 100 

La Spezia 

SoftlinesrlV ia Piave 19 

Sanremo (IM) 

A.E.S. Assemb. Elettr. S.Remo 
Via Volta 24 


Savona 

Briano snc 

Corso Tardy e Benech 20 r 

Sestri Ponente - Genova 

All Computer sas 
ViaC. Menotti 136 r 

TRENTINO 


Trento 

SI. GE. snc di Casagrande 
Via Cesare Abba 2 

SICILIA 


Catania 

Centro Informatica sdf 
Via Firenze 211 
Computer Shop 
Via E. Orlando 164 
SI. EL Informatica snc 
Via Etnea 289 

Messina 

Cubetasrl ViaCardines 12/14 

Milazzo (ME) 

Tectron Tecnologie Elet. srl 
Via dei Mille 

Palermo 

Informatica Commerciale spa 
Via Notarbartolo 26 

Rag usa 

Sosyco Corso V. Veneto 597 

Trapani 

Gualano Eugenio 
Via Virgilio 11 

MARCHE 


Jesi (AN) 

E. M.J. sas Via F. Conti 4 
New Computer srl 
Via N. Sauro 17/A 

Torrette di Ancona (AN) 
Sisteda srl Via Velino 5 

CAMPANIA 


Barano d’Ischia (NA) 

Matterà Antonio Via Roma 61 

Benevento 

Masone Informatica 
Viale dei Rettori 57 

Napoli 

Computer Systems srl 
Via G. Santacroce 40 
Golden Computer srl 
Via Michelangelo 7 
/. C. International Computer 
Viale A. Gramsci, 176 
La Barbera Carlo sas 
Via Tpledo 320 

Salerno 

Computer System 
Via E. Bottiglieri 19 
SEDA srl 

Via Parmenide c/o Iannone 


CALABRIA 


Catanzaro 

Visicom srl 

Via Minniti Ippolito 10 
Cosenza 

Micro Systems sdf 
Via Pane Bianco 26 

Gioia Tauro (RC) 

Tecnocomp snc di Cutellé F.e R. 
Via Nazionale SS 111/117 

Spezzano Albanese (CS) 
Iannibelli Via Stragolia 48 

PUGLIA 


Bari 

L. & L. Computers srl 

Largo 2 Giugno 4 

desse spa Via Re David 176/D 

Brindisi 
SIC srl 

Viale S.Giovanni Bosco 109 

Foggia 

CE. CO. srl 

Via Valentini V. Franco 1 

Leverano(LE) 

Liberano Elettronica 
Via C.Salentina 19A/21 

Manduria(TA) 

De Pasquale Ottavio 
Via per Oria 80 

Nardo (LE) 

SalcosrlV ia XX Settembre 122 

BASILICATA 


Matera 

Lucana Sistemi srl 
Via Don Minzoni 4 

ABRUZZO 


Avezzano (AQ) 

Aspron Via America 10/12 

Chieti 

Computer Point sas 
Viale Unità d'Italia 5 

L Aquila 

S.E.A.D. srl 
Via G. di Vincenzo 

Lanciano (CH) 

Electronic Microsystems 
Via della Pace 3 

MOLISE 


Campobasso 

Informatica Molisana 
Via 24 Maggio 185/189 

UMBRIA 


Cerbat a di città (PG) 

Computer Post 

Via Madonna del Vento 
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Numeri in decimale 
ed esadecimale 

Il SUPPLEMEMTO AL MANUALE DELL'AC- 
QUIRENTE a pag. 32 riporta i numeri in decimale e in 
esadecimale corrispondenti alle lettere (maiuscole e 
minuscole) e ai numeri riportati sui tasti del computer. 
Conoscere questi numeri è utile quando si vuol far 
eseguire qualcosa a un programma legata alla pressione 
di un determinato tasto. In questo caso serve l'istruzio¬ 
ne seguente IF ASC("X") = N THEN . ( dove X è 

la lettere corrispondente al tasto interessato e N il 
numero in decimale corrispondente al tasto stesso). Per 
trovare il numero corrispondente a una lettera, numero 
o simbolo di un tasto occorre battere PRINT ASC("1- 
ettera, numero, o simbolo"). L'istruzione seguente 
PRINT CHR$(N) stampa su video lettera, numero o 
simbolo corrisondente al numero N (numero da 0 a 
255). Per coloro che non siano in possesso del manuale 
specificato riportiamo un breve programma che vi per¬ 
metterà di avere sul video i numeri corrispondenti ai 
tasti battuti senza dover ribattere ogni volta l'istruzione. 

Battuto il listato e dato il RUN, schiacciate un tasto, 
dopo alcuni secondi sentirete un suono nell'altoparlan¬ 
te e vedrete stampata sul video la lettere relativa al 
tasto schiacciato e il corrispondente numero; schiaccia¬ 
te un altro tasto e aspettate alcuni secondi, avrete un 
altro numero. Se schiacciate le frecce, lo spazio o il 
tasto return, avrete su video solo il numero corrispon¬ 
dete. Ricordate che dopo 44 tasti battuti il video si 
ripulisce per scrivere altri numeri. 


5 

CALL - 

936 


7 A 

= 1:B = 

8 :P = 1 


10 

IF P > 

2 THEN 5 


12 

IF A = 

23 THEN A = 1:B 

= B + 15:P = P 4 1 

15 

F0R 1 = 

1 T0 255 


20 

GET A$ 



30 

IF I = 

ASC <A$) THEN 

VTAB A: HTAB B: PRINT A$: VTAB A: 


HTAB 

B.♦ 5: PRINT I: 

CALL - 1052:A = A ♦ 1: GOTO 10 

50 

NEXT 1 



60 

GOTO 10 




Due cali interessanti 

Con il comando CALL si richiama una subroutine in 
linguaggio macchina che risiede all’indirizzo che segue 
il comando stesso. 

CALL 62450 pulisce la pagina grafica in alta risolu¬ 
zione che stiamo usando. Se invece vogliamo pulirla 
prima di richiamarla e quindi non vedere la cancellazio¬ 
ne automatica che avviene con il comando HGR, dob¬ 
biamo prima puntare alla pagina in alta risoluzione che 
vogliamo usare con la locazione di memoria 230 e quin¬ 
di introdurre il CALL di pulizia: POKE230,32(per la 
prima pagina o 64 per la seconda pagina):CALL 62450. 

CALL 62454 invece cambia automaticamente il co¬ 
lore di fondo del disegno che si ha attualmente sulla 
pagina grafica con l'ultimo colore che è stato usato. 

Polaroid-Palette 

Se desiderate stampare su stampante o fotografare 
con Polaroid - Palette un disegno fatto in grafica ad alta 
risoluzione, è necessario che prima salviate su disco 
l'intera pagina grafica con l'istruzione BSAVE nome 
disegno.A$2000,L$2000 se siete in HGR. BSAVE no¬ 
me disegno,A$4000,L$2000 se siete in HGR2. Per far 
questo occorre bloccare con CTRL-RESET il pro¬ 


gramma che ha generato il disegno, quindi battere 
l'istruzione sopra indicata. Non preoccupatevi se dopo 
il CTRL - RESET lo schermo ritorna in modo testo, la 
pagina grafica non è stata cancellata. Se volete riveder¬ 
la battete POKE - 16304,():POKE- 16300,0:PO- 
KE-163()2,0:POKE-16297,0 per HGR, mentre se 
avete disegnato in HGR2 dovete sostituire PO¬ 
KE- 16300 con POKE -16299. Se state usando un pro¬ 
gramma protetto o in Pascal, battendo CTRL-R- 
ESET il driver contenente il programma ripartirà e non 
riuscendo ad uscire dal sistema non potrete salvare il 
disegno. Esiste un semplice sistema anche in questo 
caso. Visualizzato il disegno sul video, togliete il disco 
contenente il programma e sostituitelo con un disco 
inizializzato con il D.O.S. 3.3 (questo sistema non fun¬ 
ziona con il ProDos) e batete CTRL-RESET. Il siste¬ 
ma operativo si caricherà in memoria senza distruggere 
le due pagine grafiche e quindi il vostro disegno. A 
questo punto non vi resta che dare le istruzioni sopra 
elencate, e il gioco è fatto. 

Questo sistema è molto utile per recuperare grafici e 
disegni costruiti con il PFS-GRAPH e altri program¬ 
ma specifici per grafica e quindi effettuare delle magni¬ 
fiche diapositive con il Polaroid-Palette. 

Spia che il carattere non ci sia 

Spesso battendo i listati è facile che un dito scivoli 
sulla tastiera e si batta involontariamente il tasto CTRL 
contemporaneamente al tasto che dovevamo schiaccia¬ 
re in quel momento. Quasi sicuramente il programma 
non girerà e rischieremo di diventare matti per trovare 
l’errore perché il comando LIST non li visualizza. Se il 
computer segnalerà un SYNTAX ERROR a una linea 
del programma e a un attento esame la linea risulta 
scritta in modo corretto, probabilmente è stato intro¬ 
dotto un carattere di controllo. A questo punto non 
resta che ribattere con più attenzione la linea, e il 
programma dovrebbe girare. 

Per evitare inutili perdite di tempo, terminata ia 
trascrizione del programma sul computer e salvato su 
disco il programma stesso è sufficiente far girare il 
breve programma pubblicato a pag. 155 del MANUA¬ 
LE DEL SISTEMA OPERATIVO D.O.S. 3.3, che 
riportiamo qui sotto per coloro che ne sono sprovvisti, 
quindi caricare in memoria il programma appena salva¬ 
to e fare LIST. Tutti i caratteri di controllo verranno 
evidenziati e sarà così facilitata la loro cancellazione. 
L'unico carattere di controllo di uso comune è 
CTRL-G, che va introdotto tra deve essere prece¬ 
duto dal comando PRINT e serve per far emettere un 
breve suono all'altoparlante del computer. Purtroppo 
questo programma non evidenzierà il CTRL-M. 
CTRL-H, CTRL-U ed ESC. Serve* anche per evi¬ 
denziare eventuali caratteri di controllo inseriti nei file 
elencati dal CATALOG. In questo caso invece di bat¬ 
tere LIST bisogna battere CATALOG. Quando si usa 
questo programma viene disattivato l'altoparlante del 
computer. Per tornare al funzionamento normale, oc¬ 
corre battere PR#6 e riinizializzare il sistema. Funzio¬ 
na anche su APPLE Ile. 


IO DATA 201,141.240,21,201,134 
20 DATA 240,17,201,128,144,13 
30 DATA 201,160.176,9./2.132 
40 DATA 53.56,233.64.76,249 
50 DATA 253,76,240,253 


60 F0R I = 768 T0 768 ♦ 27 
70 READ V: POKE 1,V: NEXT 1 
80 POKE 54.0: POKE 55,3 
RO CALL 1002 















K 


per i tuoi problemi di scrittura... 


UTIL WRITER //e (...//e) 

Compilazione guidata lettera - Circolari personalizzate - Collegamento al Personal Data 
Base - 22 modi di scrittura - Creazione testata lettera - Utilizzazione set stampanti - 
Caricamento di un set alternativo per le stampanti Apple - Stampa su carta bollata - 
Schermate d’aiuto in italiano - Vari programmi d’utilità. ^ 130 000 + IVA 


PRO WRITER //e (...//e) 

Stampa proporzionale a 10 passi diversi con stampanti ad aghi Apple - Siilabica- 
zione italiana a fine riga (tutte le stampanti) - Caricamento in memoria e uso di 
10 set alternativi per le stampanti ad aghi Apple - Comandi di controllo per le 
stampanti Apple ed Epson. l 95.000 + IVA 


BASIC WRITER 


Collegamento di Apple Writer // all’ambiente Basic per program¬ 
mi di utilità e calcolazioni nel testo - Super-calcolatrice in Apple 
Writer // - Programma Graphic Writer // per stampare disegni o 
grafici integrabili al testo (stampanti ad aghi Apple ed Epson) - 
Funzione di compattamento video, di sovrapposizione continua e di 
scelta del profilo di tabulazione - Perfetto adattamento di Apple 
Writer // all’Apple //c - Estensione al programma PRO WRITER //e 
(per chi già lo possiede). L, 130.000 + IVA 

BASIC WRITER + PRO WRITER L. 195.000 + IVA 



trasformano Apple Writer // nel più potente sistema di Word Processor 

I tre programmi sono compatibili tra loro e richiedono la seguente configurazione: 

Apple //e (o //c) - Scheda 80 ci. + 64K - 1 Drive (2 Drive con Util Writer //e) - Programma Apple Writer // (Dos 3.3) 



...e per la sicurezza 

CATENACCIO 2.1 (Dos 3.3) 

Il nuovo e rivoluzionario sistema di protezione software, basato sui più recenti studi del 
settore, che rende inabile qualsiasi programma di copia fino ad ora mai realizzato. 

L. 170.000 + IVA 

Software italiano dello STUDIO PEDRAZZINI 

In vendita presso i rivenditori Apple o direttamente da: 



POLISISTEMI s.r.i. 

Via Derna, 19 - 20132 MILANO 
Tel. (02) 2842890 - 2829917 - 2843158 





















































































©flettere 


Compatibilità 

Vorrei manifestare le mie 
congratulazioni per la bella 
rivista, che ho trovato piace¬ 
vole di lettura anche per un 
neofita, e interessante per 
programmi e applicazioni, 
per suggerimenti e trucchi, 
notando altresì l’importanza 
di programmi notevoli quali 
il DISK MAP e il DISK 
ZAP, la cui presenza mi ha 
veramente sorpreso e dato 
un grande piacere, anche se 
non posso ancora metterli 
all’opera, visto che ancora 
aspetto barrivo del mio Ap¬ 
ple Ile. 

A tal proposito, vorrei sa¬ 
pere se questi e altri pro¬ 
grammi per il Ut sono da 
considerare totalmente 
compatibili con il nuovo //c, 
ove non sia indicata alcuna 
variazione (come è stato fat¬ 
to in occasione del listato del 
tastierino numerico NEM¬ 
BO KEYD, che a una atten¬ 
ta lettura presenta un’apo- 
ria: nella riga 76 c’è un $AB 
al posto del citato $BD). 

Umberto Migliore 
Modica 

Non tutti i programmi 
pubblicati sulla nostra rivista 
girano, purtroppo, su Apple 
Ile; soprattutto quelli con 
parti di programma in lin¬ 
guaggio macchina o scritti 
interamente in linguaggio 
macchina. Per questi occor¬ 
re apportare alcune modifi¬ 
che. Occorre precisare che 
tutti i programi scritti in Ap¬ 
plesoft Basic girano tran¬ 
quillamente su Ile se scritti in 
D.O.S. 3.3, mentre se ven¬ 
gono copiati in ProDos, pos¬ 
sono presentare dei problemi 
e quindi occorre apportare 
delle modifiche soprattutto 
nella gestione dei file di testo. 
Nel caso specifico i due pro¬ 
grammi da lei citati non gira¬ 
no su Ile senza sostanziali 
modifiche che ci proponia¬ 
mo di pubblicare abbastanza 
presto. Facciamo presente 
che dal n. 12—13 indichiamo 
all’inizio dei programmi con 
quale sistema operativo pos¬ 
sono funzionare e su quale 
tipo di APPLE. Per Vultima 


osservazione la ringraziamo 
per averci fatto presente una 
incompatibilità tra il listato e 
una modifica da noi suggeri¬ 
ta per adattarlo al Ile. Di fat¬ 
to l’errore nel listato non esi¬ 
ste, ma non si deve modifica¬ 
re la linea 76 perché con il 
numero esadecimale AB 
funziona sia su Apple II che 
su He. 


Messaggio 

Efo listato il programma 
pubblicato sul N. 11/1984 
"Messaggio" a pag.29, ma il 
programma non funziona 
perfettamente, in quanto 
creati i file con l’opzione N. 
3, quando si ritorna all’op¬ 
zione N. 1 DISPLAY FILE, 
viene visualizzato solo il 
messaggio con il N. 1 e la da¬ 
ta, mentre il messaggio non 
compare sul video. Lio cer¬ 
cato di apportare delle mo¬ 
difiche ma senza risultati. 
Ho telefonato alla redazio¬ 
ne di Applicando il giorno 
25/2/85, con appuntamento 
per le ore 16,30—17.00 del 
giorno 27/2, ma ho telefona¬ 
to e il tecnico era assente per 
motivi di salute (detto dalla 
centralinista). 

Ho controllato varie volte 
il listato sia sul video che la 
ristampa, ma è perfettamen¬ 
te uguale a quello pubblica¬ 
to dalla rivista. Pertanto le 
chiedo di voler ricontrollare 
il listato pubblicato e farmi 
conoscere gli eventuali erro¬ 
ri. 

Lettera firmata 

1 listati che pubblichiamo, 
come già specificato in rispo¬ 
ste ad altre lettere, non con¬ 
tengono errori perché sono 
la fotografia della stampa di¬ 
rettamente dal programma 
collaudato e registrato sul di¬ 
sco. 

Quando si è copiato un li¬ 
stato e il programma non 
funziona, la prima cosa che 
occorre fare è controllare at¬ 
tentamente il listato alla ri¬ 
cerca di qualche errore di 
battitura. Nel caso che il tutto 
sia la copia perfetta dell'ori¬ 
ginale, prima di fare modifi¬ 


che che molte volte possono 
peggiorare la situazione, o 
peggio incolpare la Redazio¬ 
ne della rivista di aver com¬ 
messo errori nel listato, è be¬ 
ne cercare di capire come 
funziona il programma pun¬ 
to per punto aiutandosi leg¬ 
gendo attentamente l'artico¬ 
lo, per trovare dove non fun¬ 
ziona. Comunque le confer¬ 
miamo che questo program¬ 
ma funziona benissimo e le 
consigliamo di ricontrollare 
il listato soprattutto alle linee 
dove vengono aperti, scritti, 
letti e chiusi ifile. A volte può 
capitare di schiacciare inav¬ 
vertitamente durante la batti¬ 
tura del listato il tasto CTRL 
inserendo un carattere di 
controllo non visibile, che 
può non far funzionare a do¬ 
vere il programma. In questo 
caso occorre ribattere atten¬ 
tamente le linee sospette. 
Purtroppo a distanza non è 
molto facile fare la diagnosi 
della malattia, le consiglia¬ 
mo quindi di leggere a pag. 
44 del MANUALE DEL SI¬ 
STEMA OPERATIVO 
D.O.S. 3.3. E’ spiegato un 
ottimo sistema molto utile 
per il controllo del funziona¬ 
mento dei programmi basati 
sulTutilizzo dei FILE DI 
TESTO come in questo ca¬ 
so. Da ultimo le confermo 
che alla data della sua telefo¬ 
nata il tecnico era veramente 
a casa per influenza e vi è 
rimasto per otto giorni. 


Apple edicola 

Ho ricopiato il listato di 
"Apple edicola" apparso sul 
N. 11 della vostra rivista. 
Quando l’ho fatto girare 
sembrava che funzionasse 


alla perfezione ma, quando 
ho voluto elencare i record 
di una rivista, si bloccava 
dando codice di errore N. 
254 alla line 6520. Ho pensa¬ 
to allora di trasformare la li¬ 
nea 3170 in questo modo: 
FOR 1= 1 TO NU:PRINT 
DI$(I);CHR$(34):NEXT. 

Così ho fatto per le linee 
4320,, 5110 e poi ho fatto 
girare il programma, il quale 
ha dimostrato, dopo questa 
variazione, di funzionare 
perfettamente e senza più 
intoppi. Spero che la varia¬ 
zione apportata al listato sia 
corretta, poiché è solo da 
pochi mesi che mi interesso 
di programmazione. 

Piero Castelli 
Bologna 

L’errore N. 254 significa 
ERRATA RISPOSTA A 
UN INPUT (bad reponse to 
input statement), e avviene 
alla linea 6520 dove il pro¬ 
gramma chiede dei dati in in¬ 
put dal file precedente aperto 
mentre il CHR$(34) corri¬ 
sponde alle virgolette alte (”) 
che vengono scritte come pri¬ 
mo dato nel file di questo 
programma. Invertendo 
CHR$(34) con DI$(1) non 
ha fatto altro che riscrivere le 
righe da lei citate che corri¬ 
spondono all’ inserimento 
dei dati nel file. A questo 
punto è lecito pensare che 
nella precedente battitura 
aveva inserito, involontaria¬ 
mente, qualche carattere di 
controllo battendo il tasto 
"CTRL” contemporanea¬ 
mente al tasto richiesto. Pur¬ 
troppo i caratteri di controllo 
non sono visibili nel listato, 
quindi l’unica soluzione, in 
questi casi, è ribattere le linee 
di programma dubbie o me- 


Errata corrige 

Il listato MICROCALC.il pubblicato a pag. 42 del 
n. 12—13 aveva la linea 1060 incompleta. La stessa 
termina così: GOTO 1000. Inoltre occorre apportare 
una modifica, per migliorare i calcoli, ad alcune linee 
del listato SCRATCH-PAD pubblicato a pag. 46 del¬ 
lo stesso numero: nelle linee 820, 1010 e 2250 occorre 
togliere la divisione per 100 (/100) e nelle linee 2180 e 
2250 occorre togliere il prodotto per 100 (*100). 
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Precisazione 

Preghiamo coloro 
che ci sottopongono 
quesiti o problemi rela¬ 
tivi a programmi di co¬ 
municare sempre il tipo 
di computer utilizzato e 
il sistema operativo 
usato. Il nostro lavoro 
sarà così più agevole. 


glio consultare il MANUA¬ 
LE DEL SISTEMA OPE¬ 
RATIVO D.O.S. 3.3 a pag. 
155 dove è riportato un pro¬ 
gramma di poche righe (che 
pubblichiamo nella pagina 
dellAPPLIHELP di questo 
numero) con le relative istru¬ 
zioni per la visualizzazione 
dei caratteri di controllo. Un 
altro ottimo sistema di con¬ 
trollo dei programmi che la¬ 
vorano con i file è spiegato a 
pag. 44 dello stesso manuale. 
Provi a ribattere, come indi¬ 
cato sul listato della rivista, le 
linee da lei modificate e ve¬ 
drà che il programma fun¬ 
zionerà a dovere. 


Per cominciare 

Ho accolto con soddisfa¬ 
zione la rubrica PER CHI 
COMINCIA apparsa su 
Applicando N. 12-13 e ne 
approfitto per presentarvi 
una mia difficoltà. Possiedo 
un Apple //e e mi piacerebbe 
copiare qualcuno dei pro¬ 
grammi di giochi pubblicati. 

Poiché non possiedo né 
paddle né joystick, deside¬ 
rerei sapere come posso fare 
per passare il controllo dei 
movimenti del gioco alla ta¬ 
stiera (freccia destra—frec¬ 
cia sinistra, freccia in al¬ 
to-freccia in basso, mela 
vuota—mela piena). Se non 
mi sbaglio dovrebbe essere 
possibile. 

Raffaele Rizzello 
Chieri (TO) 

In linea di massima è pos¬ 
sibile convertire i comandi 
delle Paddle in comandi da 
tastiera. Le difficoltà si in¬ 


contrano per i programmi 
scritti in linguaggio macchi¬ 
na e quando il gioco richiede 
posizioni intermedie perché 
con i comandi da tastiera sa¬ 
rebbe necessario usare un ta¬ 
sto per ogni posizione richie¬ 
sta e la cosa si complica non 
poco. 

Il valore delle Paddle vie¬ 
ne rilevato con l'istruzione 
PR1NT PDL(O) e PRINT 
PDL(l) mentre la pressione 
dei pulsanti viene rilevata, ri¬ 
spettivamente, con l'istruzio¬ 
ne IFPEEK(-16287) >127 

THEN . e IF PEE- 

K (- 1 6 2 8 6) > 127 
THEN . MELA VUO¬ 

TA e MELA PIENA corri¬ 
spondono rispettivamente al 
pulsante della Paddle 0 e del¬ 
le Paddle 1. 

Per effettuare la conver¬ 
sione bisogna introdurre, 
prima della gestione dei tasti, 
la seguente istruzione K = 
PEEK( — 16384) :K$ = 
CHR$(K$) per rilevare la 
pressione di un tasto e sosti¬ 
tuire le istruzioni per la lettu¬ 
re delle Paddle con la se¬ 
guente IF ASC(K$)=N (nu¬ 
mero decimale corrispon¬ 
dente al tasto premuto) 
THEN . (quello che fa¬ 

ceva con il comando della 
Paddle). 

I numeri decimali relativi 
ai tasti sono pubblicati a pag. 
32 del SUPPLEMENTO 
AL MANUALE DEL¬ 
L'ACQUIRENTE. Ripor¬ 
tiamo qui i numeri relativi al¬ 
le quattro frecce non essendo 
indicati i relativi simboli sul 
manuale: 8 (freccia sinistra), 
21 (freccia destra), 10 (frec¬ 
cia ingiù), 11 (freccia in su). 
Per coloro che non fossero in 
possesso del manuale, pub¬ 
blichiamo nella pagina di 
APPLIHELP di questo nu¬ 
mero un programmino per 
rilevare i numeri decimali 
corrispondenti ai vari tasti . 
Le suggeriamo anche due 
programmi pubblicati su 
Applicando, che sono gesti¬ 
bili da tastiera: A COLPI DI 
LASER, n.2 pag. 46 con la 
modifica per tastiera pubbli¬ 
cata sul n. 3 nella pagina del¬ 
le lettere, e PUCMAN, pub¬ 
blicato sul n. 6 a pag.39. 



34170 GORIZIA-CORSO ITALIA, 149 - TEL 0481/30909 

Accessori per 11 vostro App le 

Solo per Apple Ile - espansione 64K ♦ 80 colonne al prezzo 
eccezionale di Lire 220.000 

novità': 

Tastiera professionale _90 t asti _♦ _5Q. .com andi basic _ * 12 

tasti funzione + 10 tasti definibili da voi Lire 298.000 
Tavoletta grafica c ompleta di software: L. 235.000 
Tako - un click e potrete usare l'altra faccia del vostro dischetto: 
Lire 25.000 

BUFFsa PER STAXnPAIìTI 

Utilissimi per risparmiare tempo ed utilizzare al massimo il 
vostro computer. Indispensabili per chi usa molto la 
stampante. Vi permettono di usare il computer mentre il Buffer 
manda alla stampante i dati che ha immagazzinato, 
nelle versioni: 

Alimentato dalla stampante - da Centronics a Centronics con 
capacita' di 8 K Lire 250 000 

Alimentato a 220 V - da Centronics a Centronics con capacita' 
di 16 K e comando di Reset Lire 315 000 
Come sopra ma con capacita' di 32 K Lire 370.000 
Come sopra ma con capacita' di 64 K Lire 470.000 

Buffer da 64 k espandibile sino a 256 K ingresso seriale uscita 
Centronics Lire 680.000 

Stessa ma ingresso Centronics ed uscita seriale L 680.000 
Stessa ma ingresso seriale uscita seriale L. 730.000 

ACCESSORI VAIO 

Disk Drive slim: L. 450.000 

Do ppio controller : L. 100.000 

Language card 16 K L 110.000 

Z-80 p er CP/m : L. 116.000 

80 colonne con soft switch: L. 220 000 

Super Serial Card con cavo di collegamento: L. 170.000 

Interfaccia Centronics per Epson - Tallg - Star con grafica a 

sole Lire 118.000 

Scheda per far parlare la vostra mela con softw: L. 90.000 
Programmatore di EPROFTl (2716-2732-2764): L. 120.000 
Scheda Pai Color con suono. 95.000 
128 K RAm L. 380.000 

Wild Card per Apple II plus e compatibili (per copiare tutti i 
programmi): L. 90.000 

Replay: l a piu' potente scheda per copia per Apple II plus e 
compatibili L. 158.000 

Joystick autocentranti: L. 42.000 

FLOPPY DISI 

In scatole da 10 pezzi tutti con anello di rinforzo: 

TIPO nASHUA mEmOREX 3m-SCOTCH 

SF-SD L. 40.000 L. 50.000 L. 55.000 

DF-DD L. 58.000 L. 68.000 L. 68.000 

Kit 3m per la pulizia delie testine del vostro drive a L. 55.000 

SOFTWARE PER IUAGOITOSH 

Chiedeteci la lista !! 


» Vendita per corrispondenza. Tutti i prezzi indicati 
comprendono l'IVA. nessuna spesa di spedizione per ordini 
superiori alle 50.000 Lire. Prezzi soggetti a variazioni 


VISITATE IL nOSTRO COmPUTER SHOP PER TROVARE LE 
ULTimE lìOVITA'APPLE - GORIZIA - CORSO ITALIA 149 
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Listati senza fatica 


Tutti i programmi di Applicando possono essere trascritti e quindi salvati su 
dischetto. Ma la trascrizione è lenta e noiosa, e sbagliare fin troppo facile. 
Ecco perché Applicando offre, già pronti, i dischetti con i programmi 
sottoindicati: per ottenerli, è sufficiente inviarci il tagliando debitamente 
compilato. 


Applicando 1 

*AP1/I02 

Profitti. In tempo reale l’analisi del break-even point, punto di pareg¬ 
gio, di una qualsiasi azienda. Calendario perpetuo. Dal 1582 in poi 
tutto quello che si può sapere sui giorni passati e futuri. I tronchi del 
tesoro. Una spericolata caccia al tesoro a nuoto, fra le insidie di 
tronchi galleggianti. Lire 30.000 (abbonati 25.000). 

*AP1/N03 

Eliminatore di Dos. Uno strumento per aumentare del 10% la capaci¬ 
tà di un normale floppy disk. Orologio. Per trasformare l’Apple // in un 
orologio con rintocchi, allarme e lancetta dei secondi. Pronti puntare 
fuoco! Guardiano di un castello abbandonato, hai 25 colpi da sparare 
contro gli intrusi. Lire 30.000 (abbonati 25.000). 

Applicando 2 
*AP2/IN04 

Costi chilometrici auto. Un programma per calcolare e confrontare i 
costi di qualunque auto. Richiamafigure. Posizionare, ingrandire, 
ruotare, cambiar colore, aggiungere figure a quelle di una tavola. 
Laser nello spazio. Battaglia a colpi di laser contro asteroidi e alieni 
per difendere la torretta spaziale. Lire 30.000 (abbonati 25.000). 

Applicando 3 

*AP3/IN05 

Sistema base. Un data base modulare con tutte le caratteristiche 
essenziali per mettere ordine nei propri archivi. Etichette. Etichette 
spiritose e bizzarre, di lavoro o di ogni genere, stampate facilmente e 
nel numero desiderato. Contratti. Con il WPL, il linguaggio di pro¬ 
grammazione dell’Apple Writer, bastano cinque minuti per un docu¬ 
mento di più pagine personalizzato. Gran catalogo. Una routine per 
avere il catalogo del dischetto su due colonne, 42 file per volta, e 
richiamarli con un solo tasto. Lire 30.000 (abbonati 25.000). 
*AP3/A06 

Equo canone (occorre Visicalc). In Visicalc un modello che permette, 
a inquilini o proprietari, l’esatto calcolo dell’equo canone. Lire 25.000 
(abbonati 20.000). 


Sistema base - AP3/IN05 

Un data base modulare che ha 
il pregio di costare pochissimo 
e di offrire possibilità operative 
che nemmeno programmi 
di costo molto superiore hanno. 



Applicando 4 

*AP4/N07 

Lettura sprint (versione italiana e versione con frasi in inglese). Un 
reading improver per leggere di più a parità di tempo. Rompiquindici. 
Il piccolo rompicapo delle quindici pedine da ordinare nei sedici spazi a 
disposizione. Tastierino fantasma, una routine per avere a disposi¬ 


zione un tastierino numerico anche sull’Apple //. Routine di input. 
Due subroutine, una per i dati numerici l’altra per gli alfanumerici, per il 
controllo deH’input. Lire 30.000 (abbonati 25.000). 

*AP4/A09 

Organo, violino, pianoforte (dischetto Pascal, occorre language 
card o Apple //e o Ile). Ecco come si riesce a simulare i tre strumenti 
attivando l’altoparlante dell’Apple da programma. Lire 30.000 (abbo¬ 
nati 25.000). 

Applicando 5 

*AP5/N08 

Investor. In tempo reale il quadro di come vanno i propri investimenti 
in Borsa. Con 5 prospetti riepilogativi e 52 periodi di quotazione, 
Investor è uno dei programmi più completi in questo settore e in 
assoluto il più economico. Lire 70.000 (abbonati 60.000). 

*AP5/N09 

Agenda personale. Per ricordare ora per ora gli appuntamenti di un 
anno intero memorizzando fino a 15 appunti ogni giorno. Duello 
d’artiglieria. Vince chi sa calcolare meglio la velocità del vento, la 
gittata e l’elevazione della canna. Mele e freccette. Versione compu¬ 
terizzata del popolare gioco delle freccette che nulla toglie al gusto del 
far centro. Lire 30.000 (abbonati 25.000). 

Investor - AP5/N08 

Per seguire le azioni in Borsa, con 
grafici, media mobile a 15 e 52 
settimane, medie volume e prezzo 


Applicando 6 

*AP6/N10 

Obbligazioni/Bond Manager. Per avere un quadro completo e con¬ 
creto dei rendimenti dei titoli a reddito fisso. PucMan/Nibbler. Versio¬ 
ne in alta risoluzione per Apple del famoso videogame a gettone. Line 
finder. Questa utility permette di localizzare facilmente i segmenti di 
un programma. Lire 30.000 (abbonati 25.000). 

*AP6/N11 

Stress. In Pascal (occorre language card o Apple //e o Ile). Per 
giocare, ma soprattutto per inventare giochi, il programma si pone in 
alternativa agli usuali videogame. Lire 55.000 (abbonati 45.000). 



Stress - AP6/N11 

Il programma ideale per chi ha 
l'Apple //c (ma gira anche sul //e) 
e che consente di inventare 
sempre nuovi giochi. 
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Applicando 7 

AonlA^nittni'e Si oossono realizzare sullo schermo capolavori di 
pittu a ottenendo effetti speciali di grande efficacia. Ottovolante Un 
tutoria per insegnare ai bambini a riconoscere , numeri che rimbalza¬ 
no sullo schermo. Diskblock. Una routine che permette di evitare che 
qualche curioso possa avere libero accesso in programmi riservati. 
Archivio per Apple. Per avere un back-up dei programmi piu impor¬ 
tanti da dischetto a cassetta o viceversa. Discoteca. Una banca dati 
che tiene sotto controllo la collezione di longplaying e di cassette. 
Aiuto. Alla fine della battitura di un programma, Aiuto vi dira quanti 
errori ci sono e a quali linee.Lire 30.000 (abbonati 25.000). 


--- 

Apple pittore - AP7 /N12 

Potrete realizzare sullo schermo 
capolavori artistici con effetti 
speciali di grande efficacia 
ma soprattutto facili da ottenere. 


Applicando 8 

*AP8/N13 

Cambiacomandi/Messaggi. Un programma che insegna come per¬ 
sonalizzare i messaggi propri del Dos dell’Apple. Le Mans. Un gran 
premio di formula uno da giocare in due o da soli contro il computer. 
Appleorgano. Una combinazione di linguaggio macchina e di Apple¬ 
soft che trasforma l’Apple in un melodioso organo. Lire 30.000 (abbo¬ 
nati 25.000). 

*AP8/T14 

Momento di una forza/Colpo all’asta. La dimostrazione didattica del 
ribaltamento di un corpo solido appoggiato a un piano quando viene 
applicata una forza orizzontale che supera il momento in senso oppo¬ 
sto dovuto al peso. Hard copy pagine in alta risoluzione. Se la 
stampante risponde a determinati criteri di compatibilità, con questo 
programma si possono far miracoli. Lire 30.000 (abbonati 25.000). 


Applicando 9 

*AP9/N15 

Fuoco fatuo. Un appassionante adventure game con un percorso 
intricatissimo, mille trabocchetti, un troll e una principessa. Apple 
artista. Per destreggiarsi nella grafica ad alta risoluzione usando lo 
schermo come tavolozza e la tastiera come pennello. Data hello. Una 
semplice routine che permette di disporre di una clock card inizializ- 
zando i dischetti con giorno, mese e anno. Lire 25.000 (abbonati 
20 . 000 ). 

*AP9/T 16 

Sistema di forze parallele. Fissandone l’intensità e la posizione 
questo programma permette di visualizzare il centro di un sistema di 
forze sotto forma numerica e grafica. Traslazione e rotazione di una 


figura piana. Come far ruotare, traslare, rimpicciolire, ingrandire sul 
video una figura piana. Lire 30.000 (abbonati 25.000). 

Applicando 10 

*AP10/N14 

Ripristino. Come ripristinare programmi persi per un’accidentale 
istruzione di New o di Fp. Disk Map. Un detective del Dos per scoprire 
dove e come vengono immagazzinati i dati analizzando la mappa dei 
bit occupati. Autonumber. Una routine per autonumerare automatica- 
mente i programmi e allineare le linee con un ritorno carrello in input. 
Lire 30.000 (abbonati 25.000). 

*AP10/T17 

Rette nel piano cartesiano. Come individuare in cinque modi diversi 
una coppia di rette in un piano cartesiano e avere visualizzate le 
equazioni relative ai valori assegnati. Statistica. Come analizzare la 
correlazione fra due fenomeni o due caratteri e l’indice o coefficiente di 
Bravais che ne effettua la misura. Lire 30.000 (abbonati 25.000). 
Applicando 11 
*AP11/N 18 

Apple edicola. Una banca dati per avere sotto controllo un articolo, il 
suo numero di pagina, la rivista su cui è stato pubblicato. Disk Zap. Il 
programma indispensabile per il debugging di un dischetto che ne 
risolve la maggior parte dei problemi. Messaggi personali. Quando la 
persona non c’è, per lasciare un messaggio basta impostarlo sulla 
tastiera. L'Apple farà il resto. Comparatore di programmi in basic. 
Una routine per risolvere dubbi sulle diverse versioni di uno stesso 
programma. Trappola per pochi. Un cacciatore contro tre animali 
feroci. Vince chi riesce a intrappolare senza essere intrappolato. Lire 
30.000 (abbonati 25.000). 

*AP11/T19 

Espressioni. Come risolvere un piccolo dramma familiare con l’aiuto 
di un elaboratore personale. Lire 25.000 (abbonati 20.000). 

Applicando 12-13 

AP12/N20 

Bridge. Un programma in altissima risoluzione grafica che permette di 
imparare il bridge o di giocarlo contro il computer. Microcalc. Un foglio 
elettronico di calcolo, spreadsheet, che mette a disposizione 20 righe 
per 20 colonne per un totale di 400 caselle da riempire come si vuole. 
Applesoft Line Editor. Una potente utility che permette l’editing dei 
programmi in Applesoft e aggiunge all’Apple un più ampio controllo del 
cursore. Lire 30.000 (abbonati 25.000). 

AP12/A21 

Budget (occorre Appleworks). Un prospetto che con l’inserimento di 
dati mensili e di medie preventive calcola automaticamente le medie 
consuntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A22 

Budget (occorre Visicalc). Un prospetto che con l'inserimento di dati 
mensili e di medie preventive calcola automaticamente le medie con¬ 
suntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A23 

Cinque modelli Spreadsheet, tre modelli data base, due modelli 
Word Processor. Versione per Appleworks. Due dischetti. Lire 
80.000 (abbonati 70.000). 

AP12/A24 

Cinque modelli Spreadsheet. Versione per VisiCalc. Lire 40.000 
(abbonati 35.000). 

(Continua a pag. 98) 




Compilare e spedire il tagliando qui sotto a Applicando , Editronica Srl., Corso Monforte 39, 20122 Milano 


1 Vogliate inviarmi i 

„ LAIPI 

seguenti dischetti 

l/l II 1 
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I Sono abbonato: si □ noD 

f 


Cognome . Nome . 

Via . Cap . 

Città . Prov . 

Scelgo la seguente formula di pagamento: 

□ allego assegno di L . non trasferibile intestato a Editronica srl. 

□ allego ricevuta versamento di L . sul cc/p n. 19740208 intestato a 

Editronica srl. - Corso Monforte, 39 - 20122 Milano 

□ pago fin d’ora l’importo di L . con la mia carta 

di credito Bank Americard N ... 

scadenza . autorizzando la Banca 

d’America e d’Italia ad addebitarne l'importo sul mio conto BankAmericard. 

Data . Firma . 














































lo applico, 
tu applichi? 







AP12/T25 

Animazione di una rotazione tridimensionale. Un esempio di come 
una rotazione tridimensionale permette di rappresentare gli oggetti 
proprio come li vediamo. Trasformazione da File a Data. Una utility 
per risolvere il problema di aggiungere a un programma preesistente 
delle istruzioni DATA ricavati da un altro file. Lire 25.000 (abbonati 
15.000). 




UH [?32) aaowoiiaaaa 
iJad ipiraigFtDmsirf 
da rata rmim aiKiitl 

[pas* 

da gu*al?tlaa» 

AP12/N20 


Applicando 14 

AP14/N26 

Golf. Un programma in altissima risoluzione grafica che permette di 
disegnare il proprio percorso di golf per poi giocarci a piacimento con 
gli amici. Autopiù. Con l’aiuto di questo programma non dimentichere¬ 
te più gli appuntamenti fissi dedicati alla manutenzione della vostra 
automobile. Lire 20.000. 

*AP14/N27 

Applebaby. Tre giochi didattici: il primo per imparare a contare in età 
prescolastica; il secondo per ripassare le tabelline; il terzo per eserci¬ 
tarsi nell’ortografia. Lire 20.000. 

*AP14/A28 

Rimborso spese, (occorre Appleworks). Un prospetto che vi permet¬ 
te di preparare le vostre note spese automaticamente in cinque minuti. 
Lire 15.000. 

*AP14/A29 

Rimborso spese, (occorre VisiCalc). Un prospetto che vi permette di 
preparare le vostre note spese automaticamente in cinque minuti. Lire 
15.000. 

*AP14/T30 

Frutteti. Un aiuto a risolvere uno dei più classici problemi di estimo. In- 
stant Poster Voi scrivete con la tastiera del vostro Apple la frase che 
volete, e subito dalla stampante esce un poster formato gigante. Lire 
15.000. 

Applicando 15 

AP15/N31 

Sintetizzatore di suoni. Con questo programma potete dotare i vostri 
lavori di una colonna sonora eccezionale; permette infatti la sintetizza- 
zione dei suoni più diversi: dal canto dell’uccellino, alla mitragliatrice, 
dal treno in corsa all'aereo, e tantissimi altri, compresa la musica. 
Volano. Un gioco in alta risoluzione per due sfidanti. Illustratore. Un 
programma di grafica che offre la possibilità di realizzare ottimi disegni 
anche a chi non è troppo ferrato in materia. Autoschermo. Crea in 
automatico videate di presentazione dei programmi inseriti in un di¬ 
schetto; dall’aspetto molto professionale, evidenzia infatti i programmi 
con una barra luminosa comandabile con le frecce e fa partire il 
programma così evidenziato con un semplice Return. Lire 30.000. 
AP15/A32 

Computer cuisine. Un ricettario computerizzato sul quale memoriz¬ 
zare ingredienti e ricette a centinaia, eliminando così sia il fastidio di 
mille pezzetti di carta sparsi per i cassetti, sia il pericolo di perdersi 
preziose ricette. Con possibilità di stampa delle singole ricette e un 
menù completo dei migliori piatti creati da Gualtiero Marchesi, il più 
famoso cuoco d’Italia. Lire 20.000. 

AP15/T33 Euclide. Il massimo comun divisore e il minimo comune 
multiplo in un programma che ne permette l’immediata comprensione. 
Isomeri. Fa parte del più ampio progetto americano Seraphim, per lo 
studio della chimica. Lire 15.000. 




*1 dischetti contrassegnati con asterisco contengono anche il pro¬ 
gramma Tombola, omaggio natalizio di Applicando e di Compushop, 
via Nomentana 265-273, Roma. 




La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per acquistarlo. 
Oppure sta per cambiarlo 
con un Apple //e. 

O con un Lisa. 

Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 


Per la pubblicità 

studiosfera sas 

I" Strada, 24 

Milano San Felice (Segrate) 

Tel. (02) 75 32 151 

(02) 75 33 939 .. =^= 

STUDIOSFERA 
sas di Berardo & C. 
f Strada 24 - Milano S. Fe 
lice - 20090 Segrate MI - te 
lefono 02/7533939 -7532151 
telex 321255 MACORM-C.F. e 
P. Iva 0701483 015 7-C.C.I.A.A. 
Milano 1132820 - Tribunale 
Milano Reg. Soc. n. 64797 
Banca Popolare di 
M ilano Ag. 17 
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LATUA AZIENDA 

M PERICOLO 


(adesso lo sai) 



Questo dischetto 

contiene 

la tua azienda a 


Questo dischetto 
contiene 
la tua azienda a 




La tua azienda è in pericolo nel suo 
punto vitale: il “computer”. 

Ed è concentrata su pochi supporti 
magnetici che devi proteggere. Dal¬ 
l’incendio soprattutto, dal furto, da at¬ 
ti vandalici o semplicemente da mani 
indiscrete. ■ 


RICHIESTA INFORMAZIONI 


MCC 300 E MCC 100 

Due esempi della linea ignifughi 
prodotta dalla svedese HADAK. 


Per informazioni spedire questo coupon, in busta chiu¬ 
sa, a DATAMATIC S.p.A - via Volturno, 46 -20124 Milano 
tei. (02) 6073876 (5 linee r.a.) - via Città di Cascia, 29 
00191 Roma - tei. 3273581 (4 linee r.a.). 



è un prodotto 


datamatic 

TRATTA BENE ILTUO CALCOLATORE 


disponibile anche 
presso i migliori 
rivenditori 
di prodotti per 
rinformatica. 


i 

I NOME__ 

I COGNOME... 
I INDIRIZZO. 

I 


TEL. 

























SCOPRI LA DIFFERENZA DYSAN 



PKRFIC1F DOPÒ ÌL BL I 


ISHING 


RECORD BXNT> < 
GUARD BAND 008" 
RECORD BAND 012" 


SUPERFICIE PRIMA DEL BURNISHING 


Perchè Dysaril 
Le Quattro 
Ragioni Per 
Preferire la 
Differenza 
Dysan 


^S^XLUBRIFICANTE 

>^SIJPERFICIE 

SUBSTRATO 


100% di superficie 

/ Esclusiva tecnica 

X Speciale 

(1 Certificazione 

!.« testata “error free” 

m% di Burnishing 

KJ % lubrificazione 

■ totale 


Solo Dysan garantisce che 
tutta la superficie della 
diskette sia realmente 
100% “error free”: un test 
esclusivo certifica le tracce 
e lo spazio tra le tracce 
assicurando prestazioni 
“error free” anche in 
presenza di 
disallineamento delle 
testine. 


Solo Dysan garantisce una 
superficie “a specchio” 
grazie alla sua avanzata ed 
unica tecnica di 
“burnishing” - questo 
risultato assicura un 
miglior segnale sulle 
tracce, una minor 
turbolenza sulle testine, 
consentendo un sicuro 
mantenimento dei dati 
dopo milioni e milioni di 
rotazioni. 


Solo Dysan garantisce, 
mediante uno speciale 
procedimento di 
lubrificazione, ottenuto 
trattando la superficie con 
il proprio esclusivo 
lubrificante DY 10, che le 
prestazioni “error free” 
siano esaltate e mantenute 
nel tempo. 


Solo Dysan garantisce, con 
il suo metodo automatico 
di controllo qualità di tutta 
la produzione (risultato di 
una tecnologia leader nel 
mondo) che ogni diskette 
prodotta sia stata 
singolarmente testata e 
certificata. 



datamatic 

tratta bene 
il tuo calcolatore 


SEDE: Via Volturno, 46 - 20124 Milano - tei. 02/6886795-6886874 
FILIALE: Via Città di Cascia, 29 - 00191 Roma - tei. 06/3279987 










































